'使用方法，在打开窗体时用opendb即可，关闭用closedb,数据库文件你修改dbname变量'表操作 打开 openrs 1,"select * from ..."            关闭  closers 1我写了四个表操作变量，1234，你自己看着理解，你要会SQl语句，要不这也没有什么用。'数据库连接：放在一个模块里里面Public Const DBName = "FoxData.mdb"Public Const DBpass = ""Public conn As New ADODB.ConnectionPublic Rs1 As New ADODB.RecordsetPublic Rs2 As New ADODB.RecordsetPublic Rs3 As New ADODB.RecordsetPublic Rs4 As New ADODB.RecordsetPublic Sub OpenDB()Dim DBpath As StringDBpath = App.Path + "" + DBNameconn.Open "provider=Microsoft.Jet.oledb.4.0;data source=" & DBpath & ";Jet OLEDB:Database Password=" & DBpass & ";"End Sub'******************************************'关闭数据库Public Sub CloseDB()On Error Resume Nextconn.CloseSet conn = NothingEnd SubPublic Sub OpenRs(ByVal RsNum As Integer, ByVal RsSql As String)Select Case RsNumCase 1: Rs1.Open RsSql, conn, adOpenKeyset, adLockPessimisticCase 2: Rs2.Open RsSql, conn, adOpenKeyset, adLockPessimisticCase 3: Rs3.Open RsSql, conn, adOpenKeyset, adLockPessimisticCase 4: Rs4.Open RsSql, conn, adOpenKeyset, adLockPessimisticEnd SelectEnd SubPublic Sub CloseRs(ByVal RsNum As Integer)Select Case RsNumCase 1:  Rs1.Close:  Set Rs1 = NothingCase 2:  Rs2.Close:  Set Rs2 = NothingCase 3:  Rs3.Close:  Set Rs3 = NothingCase 4:  Rs4.Close:  Set Rs4 = NothingEnd SelectEnd Sub

我可以给你个实例。。。

工程1设计数据库查询程序窗体放置3TEXT控件TEXT1空间输入id另外2控件能显示id所应名称性别建名data.mdbACCESS数据库表名user 字段1 id 主键字段2 名称字段3 性别Private Sub CmdFind_click() '查找按钮Dim MyCnn As New ADODB.ConnectionDim MyRs As New ADODB.RecordsetMyCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:My Documentsdata.mdb;Persist Security Info=False"MyRs.open "Select * from User where id=" & Text1.text ,MyCnnif not MyRs.eof then Text2.text=trim(rs!名称） Text3.text=trim(rs!性别）Else Msgbox "没该用户" Text1.selstart=0 Text1.SelLength=Len(Text1.Text) Text1.SetFcousEndIfMyrs.closeSet MyRs=nothingMyCnn.closeSet MyCnn=NothingEnd Sub