找到了,贴上代码
Private Sub Command1_Click()
Dim rsGeneric As Recordset
Dim cnnGeneric As Connection
'
Set cnnGeneric = New Connection
'text1中填你的服务器地址
'数据文件放到虚拟目录下
'同时把msadcs.dll也拷贝到虚拟目录下的MSADC目录下
cnnGeneric.Open "Provider=MS Remote;" _
& "Remote Provider=MSDataShape;" _
& "Remote Server=http://" & Trim(Text1.Text) & ";" _
& "Data Source=try;" ' _
'& "User Id=Distributor;Password=trythis1;"
'
Set rsGeneric = New Recordset
With rsGeneric
.CursorLocation = adUseClient
.Open "select * from tbl;", cnnGeneric, adOpenStatic, adLockReadOnly
.ActiveConnection = Nothing
End With
Set Adodc1.Recordset = rsGeneric