[Tasos]

Mike καλησπέρα!

Ο υπολογιστής που φιλοξενεί τη βάση δεδομένων και δεν ανήκει σε κάποιο τοπικό δίκτυο
πρέπει να έχει εγκατεστημένο και σωστά ρυθμισμένο το IIS (Internet Information Services)
για να μπορέσεις να κάνεις τη σύνδεση σου.

Κατόπιν μπορείς να συνδέσεις τη βάση με τον παρακάτω κώδικα:

Option Explicit
Dim adoConn As ADODB.Connection
Dim adoRst As ADODB.Recordset
 Sub RemoteConnection()
    Dim strConn$, strSQL$
    strConn = "Provider=MS Remote;" & _
                   "Remote Server=http://179.128.10.122;" & _
                   "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=c:\data\customers.mdb;Persist Security Info=False"
    Set adoConn = New ADODB.Connection
    adoConn.Open strConn, "admin", ""
    strSQL = "Select * from Orders"
    Set adoRst = New ADODB.Recordset
    With adoRst
        .Open strSQL, adoConn, , , adCmdText
'        If Not .EOF Then
'            Do While Not .EOF
'
'                .MoveNext
'            Loop
'        End If
         .Close
    End With
    Set adoRst = Nothing
End Sub

Καλή συνέχεια!

Τάσος