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.