CodeItBetter Programming Another VB Programming Blog

'Database - How to establish and ADO connection over the internet.
Dim rsGeneric As Recordset
Dim cnnGeneric As Connection
 
Set cnnGeneric = New Connection
 
cnnGeneric.Open "Provider=MS Remote;" _
                & "Remote Provider=MSDataShape;" _
                & "Remote Server=http://www.webTest.com;" _
                & "Data Source=Products;" _
                & "User Id=Distributor;Password=trythis1;"
 
Set rsGeneric = New Recordset
 
With rsGeneric
    .CursorLocation = adUseClient
    .Open strQuery, cnnGeneric, adOpenStatic, adLockReadOnly
    .ActiveConnection = Nothing
End With
 
'The crux of the connection lies in the connect string. You must
'specify, the provider as "MS Remote" - notice the space in the keyword.
'I then must provide the address to the "Remote Server". Note that I
'could just as well have said "http://192.168.1.1";. "Data Source" is the
'DSN you are trying to open on the server. User Id and Password are self
'explanatory.