У меня такой код. Этот код должен сверит пароль которая находится в таблице
база данных. Если пароль не правильный то он должен показать форму2. Если правильный то должен показать форму 3. Пароль правильный не правильный он
показывает форму 2. База находится в SQL SERVER 2000. Помогите пожалуйста.
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=p;dsn=otk;uid=;pwd=;"
Set ado = New Recordset
Dim sql As String
sql = "select * from polzowateli where parol= " + "'" + Text1.Text + "'"
ado.Open sql, db, adOpenStatic, adLockOptimistic
If Text1.Text <> Text1.DataField Then
Form2.Show
End If
If Text1.Text = Text1.DataField Then
Form3.Show
End If
End Sub

На счет пробелов всё нормально.

dsn=otk убрал. Соревно не получается

Я попробовал всё то что посоветовали не получается.
Я попробовал
if ado.Recordcount>0 then
form3.Show
Else
form2.show
end if
Соревно показывает форму 2.
Поробовал

If not ado.eof Then
Form3.Show
else
Form2.Show
End If
Соревно показывает форму 2.

Что такое QA

select * from polzowateli where parol= пароль . Всё нормально работает
в QA. Пароль в цифрах.

Тип у поли parol: char

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=p;uid=;pwd=;"
Set ado = New Recordset
Dim sql As String
sql = "select * from dbo.polzowateli where parol= " + "'" + Text1.Text + "'"
ado.Open sql, db, adOpenStatic, adLockOptimistic
If ado.RecordCount > 0 Then
Form3.Show
Else
Form2.Show
End If
End Sub