Hello Good Day to all.

Take a look at the following code:

Dim rsGeneric as Recordset
Dim cnnGeneric as Connection
'
set cnnGeneric = new Connection
'
cnnGeneric.Open "Provider=MS Remote;" _
& "Remote Provider=MSDataShape;" _
& "Remote Server=http://localhost
& "Data Source=Data.mdb
& "User Id=Distributor;Password=trythis1;"
'
set rsGeneric = new Recordset
'
strQuery = "Select * from Personnel"
With rsGeneric
.CursorLocation = adUseClient
.Open strQuery, cnnGeneric, adOpenStatic, adLockReadOnly
.ActiveConnection = nothing
End With

Help me figure out why is this code always produce "Internet Server Error".
Or anybody can help me how to do the same thing. Thank you in advance.

Brainiacs