Private Sub Command1_Click(Index As Integer)
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;"
Set rs = New ADODB.Recordset
rs.Open "select * from [signal] where " & Trim$(Combo11(0).Text) & "='" & st2 = Trim$(Text1(0).Text) & "'", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
居然提示我rs.Open "select * from [signal] where " & Trim$(Combo11(0).Text) & "='" & st2 = Trim$(Text1(0).Text) & "'", db, adOpenStatic, adLockOptimistic 实时错误3001，参数类型不正确，或不在可接受范围内，或与其他参数冲突……调这个都调了一下午到现在……真没辙了，，谁来拯救我啊。。。
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;"
Set rs = New ADODB.Recordset
rs.Open "select * from [signal] where " & Trim$(Combo11(0).Text) & "='" & st2 = Trim$(Text1(0).Text) & "'", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
居然提示我rs.Open "select * from [signal] where " & Trim$(Combo11(0).Text) & "='" & st2 = Trim$(Text1(0).Text) & "'", db, adOpenStatic, adLockOptimistic 实时错误3001，参数类型不正确，或不在可接受范围内，或与其他参数冲突……调这个都调了一下午到现在……真没辙了，，谁来拯救我啊。。。
