У меня такой запрос: Я хочу делать запрос по двум полям. Но что-то
выдает сообщение Syntax Error.

Private Sub Command1_Click()
Dim db As Connection
Dim ado As ADODB.Recordset
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=polz;uid=;pwd=;"
Set ado = New Recordset
Dim sql As String
sql = "select * from dbo.Polzowateli where Parol= " + "'" + Text1.Text + "'" and imya="'"&datacombo1.ListField&"'"
ado.Open sql, db, adOpenStatic, adLockOptimistic

Заранее благодарю.

Теперь выдает сообщение

Type Mismatch

Спасибо за ответь. Но чего-то я не понимаю вроде бы все нормально. Но опять
что-то не то:
Private Sub Command1_Click()
Dim db As Connection
Dim ado As ADODB.Recordset
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=polz;uid=;pwd=;"
Set ado = New Recordset
Dim sql As String
sql = "select * from dbo.Polzowateli where Parol= '" & Text1.Text & "' and imya='" & DataCombo1.ListField & "'"
ado.Open sql, db, adOpenStatic, adLockOptimistic
If ado.RecordCount > 0 Then
Screen.MousePointer = 11
k.Show
Screen.MousePointer = 0
Unload Form1
Else
MsgBox "wrong parol"
Text1.Text = ""
End If
Если даже пароль вводишь правильно только MsgBox выдает сообщение Wrong Parol. Я не знаю что делать.

Не получается

Если этот запрос в QA запустить то не действует.
"select * from dbo.Polzowateli where Parol= '" & Text1.Text & "' and Imya='" & DataCombo1.ListField & "'"

Если например в QA запустить этот запрос то действует.
select * from dbo.Polzowateli where parol='1' and Imya='futbol'

Если так сделать:
Dim sql As String
msgbox sql
sql = "select * from dbo.Polzowateli where Parol= '" & Text1.Text & "' and Imya='" & DataCombo1.ListField & "'"
то MsgBox показывает форму в Captione "k" и кнопка Оk. Ok нажимаешь то тогда опять MsgBox выдает сообщение Wrong Parol.
Если так сделать:
Dim sql As String
sql = "select * from dbo.Polzowateli where Parol= '" & Text1.Text & "' and Imya='" & DataCombo1.ListField & "'"
msgbox sql
то тогда MsgBox выдает сообщение select* from Polzowateli where parole='1' and
Imya='Futbol'.
Ok нажимаешь то тогда опять MsgBox выдает сообщение Wrong Parol.

Попробовал но все равно не получается. Я даже не знаю что делать

Есть ошибка при выполнении. Выдает такое сообщение:

Run-Time Error 3021
Either BOF or EOF is True, or the current record has been deleted.
Requested operation requires a current record.

Private Sub Command1_Click()
Dim db As Connection
Dim ado As ADODB.Recordset
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=polz;uid=;pwd=;"
Set ado = New Recordset
Dim sql As String
sql = "select * from dbo.Polzowateli where Parol= '" & Text1.Text & "' and Imya='" & DataCombo1.ListField & "'"
MsgBox sql
ado.Open sql, db, adOpenStatic, adLockOptimistic
If Not ado.EOF Then
Screen.MousePointer = 11
k.Show
Screen.MousePointer = 0
Unload Form1
Else
MsgBox "Wrong Parol"
Text1.Text = ""
Продолжаем вчерашний топик. Я что-то не обратил внимания но MsgBox sql
показывает select * from dbo.Polzowateli where Parol='1' and Imya='Imya'.Скорее
всего DataCombo1.Listfield не берет данные из таблицы. Поэтому показывает Wrong parol. Я вместо ListField указал DataField не получается . Спасибо заранее