Option Explicit
Dim adoConn As ADODB.Connection
Dim adoRst As ADODB.Recordset

Private Sub Command1_Click()'============================
Dim strConString As String
Dim strSQL As String
'assign connection string
strConString = "Provider=MS Remote;" & _
                   "Remote Server=http://192.168.1.1;" & _
                  "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=MyRemoteDB;Persist Security Info=False"
        'initialize connection object variable
    Set adoConn = New ADODB.Connection
    'open connection
    adoConn.Open strConString, "admin", ""
        strSQL = "Select * from Orders"
        'initialize recordset object variable
    Set adoRst = New ADODB.Recordset
    With adoRst
        .Open strSQL, adoConn, , , adCmdText
        If Not .EOF Then
            Do While Not .EOF
                'read each record here
                '...
                .MoveNext
            Loop
            .Close
        End If
    End With

        'destroy recordset object if necessary (or do it when you unload the form)
    'Set adoRst = Nothing
        'destroy connection object if necessary (or do it when you unload the form)
    'Set adoConn = Nothing
End Sub