Remote Data Objects

Public dbRDOConnect as ADODB.connection 
Public dbRDORecordset as ADODB.recordset 
Dim sConnectionStr as string 
Dim sSQLQuery as string 

SConnectionStr  = "DSN =" & DatabaseName & ";" 
                              "UID = " & UserId & ";" 
                              "PWD =" & Password &  ";" 

Set dbRDOConnect as New RDOconnection 

With dbRDOConnect 
      .Cursordriver = rdUseODDC 
       .Connect = sConnectionStr 
       .EstablishConnection rddrivernoprompt 

End With 

Set sSQLQuery = "" 
DbRDOrecordset.Open = dbRDOConnect.OpenRecordset(