Set rs_jibenxinxi = Nothing

         If Trim(Text2.Text) = "" Then
             MsgBox "请输入查询条件!", vbInformation, "提示"
        End If

        sql = "select id,姓名 from 基础资料表  where  " & Trim(Combo8.Text) & Trim(Combo9.Text) & "'" & Trim(Text2.Text) & "'    order by id"


        rs_jibenxinxi.CursorLocation = adUseClient
         rs_jibenxinxi.Open sql, conn, adOpenKeyset, adLockOptimistic
        Set DataGrid1.DataSource = rs_jibenxinxi
         Call biaogehanglie  '调用表格函数
          Call shujugenggai
          DTPicker2.Value = DTPicker1(1).Value
          Text3.Text = Text1(4).Text

这是俺曾经编写过的，你试试。

你好 谢谢你的程序
你在吗 可以留个联系方式吗  我VB-ACCESS方面是新手 现在在做这样一个软件