Question : accessing an ODBC datasource via VBA

A rather straight-forward question:

Below is a copy of the VBA module of an Excel file. In order not to miss any information, I copied the entire module:

Option Explicit
Global StrQuery As String
Global ObjCon As New ADODB.Command
Global RstMain As New ADODB.Recordset
Global ObjCnn As New ADODB.Connection
Global V_User_Id, V_Password, V_Start_Date, V_End_Date As String

Sub UF_Identfy_Show()
    UF_Identify.Show
End Sub

Public Function GetData() As ADODB.Recordset

    Set GetData = ReadDB2()
    Worksheets("Query Result").Activate
    Call DumpRecordset
    ObjCnn.Close
   
End Function

Public Function ReadDB2() As ADODB.Recordset
    On Error GoTo ErrorHandel
    ObjCnn.ConnectionString = "DSN=RDB2I;User ID=" & V_User_Id & ";PWD=" & V_Password & ";"
    ObjCnn.ConnectionTimeout = 600
    ObjCnn.CursorLocation = adUseClient
    ObjCnn.Open
    ObjCon.ActiveConnection = ObjCnn
    ObjCon.CommandTimeout = 600
    ObjCon.CommandText = StrQuery
    RstMain.CursorType = adOpenDynamic
    RstMain.CursorLocation = adUseClient
    RstMain.LockType = adLockOptimistic
    RstMain.MaxRecords = 64000
    RstMain.Open ObjCon
    Set ReadDB2 = RstMain
    Exit Function
ErrorHandel:
    MsgBox "Error in ReadDB2(), " & Err.Description & ""
    End
End Function

Public Sub DumpRecordset()

    On Error GoTo ErrorHandel
    On Error Resume Next
    Dim objField As Variant
    Dim i        As Integer
    Dim j        As Integer
    i = 1
    Do While Not RstMain.EOF
       i = i + 1
       j = 0
       Cells(i, j) = i - 1
       For Each objField In RstMain.Fields
           j = j + 1
           If IsNull(objField) Then
               Cells(i, j) = "."
           ElseIf objField.Type = adNumeric Then
               Cells(i, j) = CDbl(objField)
           Else
              Cells(i, j) = objField.Value
           End If
       Next
       RstMain.MoveNext
    Loop
    Exit Sub
ErrorHandel:
    MsgBox "Error in DumpRecordset(), " & Err.Description
    End
End Sub

Private Sub CB_OK_Click()

Dim str_Query As String
Dim str_New_Query As String
Dim int_Length As Integer
Dim i As Integer
Dim str_Char As String

V_User_Id = TB_User_Id.Text
V_Password = TB_Password.Text

str_Query = Me.txt_UserQuery.Text
int_Length = Len(str_Query)
str_Char = ""

For i = 1 To int_Length
    If Mid(str_Query, i, 2) = vbCrLf Then
    str_Char = str_Char & " "
    i = i + 1
    Else: str_Char = str_Char & Mid(str_Query, i, 1)
    End If
   
Next i
StrQuery = str_Char

Call GetData

Worksheets("query result").Activate

End Sub


As you can see, this module creates a link to an existing ODBC-datasourec. The V_userID, V_password variables and the query string StrQuery are provided by the user via a separate sheet (code not listed). The query result is stored in a recordset that is then 'dumped' on an Excel sheet.

I'm looking for a way to get the same link in access. More specifically, I would like to open a recordset in Access (RstMain) based on a query provided by a user, retrieve the query results in a recordset and add them to an existing Access table (so,an automatic 'update' of an existing Access table with external data).
I already tried a simple paste of the code above, but this doesn't work (as I had expected). I'm using Access 97, so maybe a different syntax is required for the connection? I think there's some work to do on the private/public functions and subs as well... the purpose is to have a 'connect' module that delivers a recordset, and an 'update' module that accesses the recordset and performs operations on the records.

Who could help me in rewriting this code so I'm able to get the data from the SAME datasource? I'm looking for a VBA solution, not a simple table link to an external source...

Because this would help me considerably, I'm awarding many points (given my current allowance).
But of course, any help is just welcome as it is...
If I can have a complete solution, meaning a working procedure to access the data source and retrieving the query data, and a procedure to put the query results in a recordset that I can use to update a table, I will even raise the points.

Thanks in advance,

Roel Simons

Answer : accessing an ODBC datasource via VBA

K, I just test the code and it compiles.  What version of Access? (97 I bet)
While in the code, go to tools---references, do you have Microsoft Active Data Objects 2.7 Library checked? (or higher than 2,7)