VB引用MS ADO库，然后程序里面这么定义
Dim Conn As New ADODB.Connection
Dim oRs As New ADODB.Recordset
Dim StrSql As String
Conn.Open "DRIVER=SQL Server;SERVER=xxx.xxx.xxx.xxx;UID=sa;PWD=xxx;database=xxx;"
StrSql = "SQL语句"
oRs.Open StrSql, Conn, 1, 1
使用ors就行了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024