求高手指点连接后台数据库表的方法

Dim ConnDB As New ADODB.Connection
Dim OraOpen As Boolean
Dim connstr As String
Dim rst As ADODB.Recordset
Dim strSQL As String

strDBName = "数据库名"
strUserID = "用户名"
strPassword = "密码"
connstr = "DRIVER={Microsoft ODBC for Oracle};SERVER=" & strDBName & ";UID=" & strUserID & ";PWD=" & strPassword & ";"
ConnDB.CursorLocation = adUseServer
ConnDB.Open connstr
OraOpen = True

Set rst = New ADODB.Recordset