I ever tried this, but have no experience of succes with it. Only if the user name is WALTER (and knowing the IP address of my server with ICQ or similar), it should establish a connection to the database Stock.mdb on my server from his home:
*****************
'allow Walter to log in on the server database from his home:
If UCase(UserNaam) = "WALTER" Then
Dim Server As String
PathServer = "E DRIVE:\Vincent\Stock.mdb"
Server = UCase(InputBox("Hi Walter." & vbCrLf & vbCrLf & "Please enter the server IP address ", "Log in at server."

)
Adodc1.ConnectionString = "Provider=MS Remote;" & "Remote Server=" & Server & ";" & "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & PathServer & ";" & "admin"
strConn = "Provider=MS Remote;" & "Remote Server=" & Server & ";" & "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & PathServer & ";" & "cel"
*************
Hope this helps (and hope it works). Let me know at vincent.mairiaux@yucom.be