代码：
Dim r As String
Dim b As String
Dim l As String
r = RX.Text
b = BJ.Text
l = LJ.Text
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=product.mdb"
Dim objConn As New OleDb.OleDbConnection(strConn)
Dim objAdap As New OleDb.OleDbDataAdapter()
Dim objDSet As New DataSet
objConn.Open()
Dim strSql = "Select*from product where 绕线组 LIKE r"
objAdap.SelectCommand = New OleDb.OleDbCommand(strSql, objConn)
objConn.Close()
objAdap.Fill(objDSet, "product")
通过筛选数据，得到满足条件的表，