Dim Strg As String
If the Trim (Text1. Text) & lt;> "" Then
If cb1. Text="number" Then
Strg="select * from dingdan where" & amp; Cb1. Text & amp; "=" & amp; Trim (Text1. Text)
The Else
Strg="select * from dingdan where" & amp; Cb1. Text & amp; "Like '%" & amp; Trim (Text1. Text) & amp; "% '
"End the If
'MsgBox Strg
Call Conndata
Conn. Open
Adob. Open Strg, Conn, 1, 3
If Adob. EOF Then
MsgBox "no actual orderdate!" , 48 + vbOKOnly, "pcbsystem
"The Else
The Set fld4. The DataSource=Adob
End the If
The Else
MsgBox "query data can't be empty", 48 + vbOKOnly, "pcbsystem
"End the If
If Conn. Then State=1
Conn. Close
End the If
If Adob. State=1 Then
Adob. Close
End the If

CodePudding user response:

Can determine where the problem is a top?

CodePudding user response:

Adob. Open Strg, Conn, 1, 3

CodePudding user response:

Have no one to help me with this problem

CodePudding user response:

First in query analyzer can connect and operation is successful