Private Sub Command1_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strCn As String Dim sql As String strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\偉湟車間管理庫.mdb;Persist Security Info=false" cn.Open strCn ' 设置该属性, 使 recordcount 和 absolutepage 属性可用 t1 = Text0(1).Text t2 = Text1(0).Text t3 = Text2(2).Text t4 = Text3(1).Text If OptionButton1.Value = 0 Then t5 = "2" Else t5 = "1" End If ''t5 = Mid(Text1, InStr(Text1.Text, "a4") + 2, Len(Text1.Text) - InStr(Text1.Text, "a4") - 3) If t1 = "0" And t2 = "0" And t3 = "0" And t4 = "0" Then '0000 Adodc2.RecordSource = "select * from 車間管理表 where 班次 like '%" & t5 & "%'" Adodc2.Refresh Adodc2.Recordset.Update End If 谢谢!