关于Vb连接Sql server数据库的问题，哪位大侠能帮忙的！

Question

在模块里建立子过程，以后调用cn 就可以了 
Sub SqlOleDbConnect()
    cn.Provider = "sqloledb"
    cn.Properties("network address").Value = "34.48.176.58"
    cn.Properties("initial catalog").Value = "fnb"
    cn.Properties("user id").Value = "fnb"
    cn.Properties("password").Value = "123456"
    cn.Open
 End Sub
在以后的地方只要 只要调用cn就可以了，当然你也可以 设计器里定义连接

Answer 1

Dim Cn1 As ADODB.Connection
Dim Rslin As ADODB.RecordsetConnectStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DateBaseName;Data Source=ServerName"
Set Cn1 = New ADODB.Connection
Cn1.ConnectionTimeout = 10
Cn1.Open ConnectStr, "sa(用户名)", "1234(密码)"
Set Rslin = New ADODB.Recordset
Rslin.Open "Select * from Table where ……" , Cn1, adOpenStatic