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

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

我用例题说明吧。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这是我之前做的一个界面代码，就是用代码连接的，不理解的话可以发出疑问。
    觉得有用请帮我点个赞

代码连接：strConnection = "driver={SQL Server};Database=数据库名;UID=数据库连接名;PWD=数据库连接密码;server=服务器IP地址"
要将数据库允许远程连接。 话说，vs可以手动连接数据库的，找到数据菜单，选择数据源，然后按提示一步步配置就好。
看看这个文章：http://www.cnblogs.com/huhewei/p/6618569.html