VB如何连接到数据库

VB有多种方法连接数据库,不知道你想要怎么连? 还有要连接到什么样的数据库?
我这里给你提供个连接到Oracle的连接方法(利用oo4o).

Public OraDbSession As Object
Public OraDb As Object
Public myRs As Object
'连接数据库(用户名和密码,数据库名)
Function OraConn(UserID As String, Password As String, SouceName As String) As Boolean
On Error GoTo OraConn_Err
Set OraDbSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDb = OraDbSession.dbopendatabase(SouceName, UserID & "/" & Password, 0)
OraConn = True
Exit Function
OraConn_Err:
OraConn = False
MsgBox Error
End Function

'检索(Select...)
Function BookFound() As Boolean
Dim SQL As String
SQL = "SELECT bookid FROM BOOK"
On Error GoTo BookFound_Err
'这里是调用上面那个函数
If Not OraConn("用户名", "密码", "数据库名") Then
BookFound = False
Exit Function
Else
Set myRs = OraDb.dbcreatedynaset(S