How to access remote MS Access database

[RhinoBull]

Many people are asking if it is possible to connect to remote MS Access database. Well, I can say it is possible but a bit tricky - you must have IIS running on the server, plus some configs for ado library on the server are also in order.
Here is the general idea on coding:

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

For information on how to cofigure IIS refer to the following MSDN article:
http://support.microsoft.com/kb/q253580/

I hope this sample is going to be usefull.