vb如何连接sql数据库？用代码

Question

环境是server2003，sql为2008r2，VB连接数据库，用代码连接

Answer 1

我用例题说明吧。Dim cn As New ADODB.Connection
Dim rs As New ADODB.recordSet
Dim sql As String
Dim i As Integer
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MZJJSFXT;Data Source=."
sql = "select * from 门诊收费信息表"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
Set MSHGrid1.DataSource = rs

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing这是我之前做的一个界面代码，就是用代码连接的，不理解的话可以发出疑问。
    觉得有用请帮我点个赞