你不用odbc改用ado:
Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
& "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
& "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
& "Use Encryption for Data=False;Tag with column collation when possible=False"
dim AcSys as new adodb.connection
With AcSys
If .State = adStateOpen Then .Close
.ConnectionString = StrCon
.ConnectionTimeout = 30
.Open
End With
Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
& "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
& "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
& "Use Encryption for Data=False;Tag with column collation when possible=False"
dim AcSys as new adodb.connection
With AcSys
If .State = adStateOpen Then .Close
.ConnectionString = StrCon
.ConnectionTimeout = 30
.Open
End With
Dim rsUSER As ADODB.Recordset
Dim SQLstmt As String
Set PALUSADBCon = New ADODB.Connection
PALUSADBCon.ConnectionTimeout = 3000
PALUSADBCon.Open "Provider=MSDataShape.1;Persist Security Info=true;Data Source=172.#.#.#;User ID=pusa; Password =usa; Initial Catalog=PALUSASDS;Data Provider=SQLOLEDB.1"