请问~~

Question

通过ODBC来做吧，只要配置一下就行了。

Answer 1

用密码的话看下面：
Dim xsqkconn As New ADODB.Connection
xsqkconn.ConnectionString = "driver={sql server};server=服务器名;uid=SQL server上的用户名;pwd=SQL server上的用户密码;database=wsddn"
xsqkconn.Open
不用密码的话看：
Dim xsqkconn As New ADODB.Connection
xsqkconn.ConnectionString = "driver={sql server};server=服务器名;uid=;pwd=;database=数据库名"
xsqkconn.Open

Answer 2

用vb的adodc控见直接生成连接字符串