试试用ADO来链接。一般写法是:
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "Data Source=server;Initial Catalog=db;User ID=test;Password=test;"
rst.open "表1",cnn,1,3
………………
试试用ADO来链接。一般写法是: Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset cnn.Open "Data Source=server;Initial Catalog=db;User ID=testassword=test;" rst.open "表1",cnn,1,3