SQL数据库实例,与VB 连接的

写一个数据库模块
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub OpenConn()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=MyNews;Data Source=127.0.0.1;Password=123123"
End Sub
'关闭数据库连接
Public Sub CloseConn()
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

然后在程序里面Call OpenConn就打开数据库，Call CloseConn关闭数据库
代码里面用这种方法操作
Call OpenConn
sql = "select * from yhda where yhid='" & yhxhcd & "'"
rs.Open sql, cn, 1, 1
txtBZ.Text = rs.Fields("bz")
Call CloseConn
也就是说用不同的sql语句控制
也可以直接使用adodc部件（microsoft ado data control）直接连接，用法相同

SQL数据库实例,与VB 连接的 vb连接ACCESS数据库实例 vb连接SQL数据库 VB如何连接SQL数据库 VB怎么连接 SQL 数据库？ vb与asp 连接sql数据库的区别 vb与SQL连接 与SQL数据库的连接 sql数据库与asp连接 关于VB连接SQL数据库的问题