我是在VB里面开发的,下面是我的部分代码,请问要如何更改
Set Rs = New ADODB.Recordset
If Trim(Txt员工.Text) <> "" Then
Temp = "tkname=" & "'" & Trim(Txt员工.Text) & "'"
If Str <> "" Then
Str = Str + " and " + Temp
Else
Str = Temp
End If
End If
Str = "select * from Tankstore where " & Str
Rs.Open Str, Cnn, adOpenDynamic, adLockOptimistic
Dim Rs as New ADODB.Recordset
If Trim(Txt员工.Text) <> "" Then
Temp = " tkname like '%" & Trim(Txt员工.Text) & "%'"
If Str <> "" Then
Str = Str + " and " + Temp
Else
Str = Temp
End If
End If
Str = "select * from Tankstore where " & Str
Rs.Open Str, Cnn, adOpenDynamic, adLockOptimistic