Как проверить, есть ли данный пользователь в БД MySQL? - VB

Формулировка задачи:

как проверить с помощью оператора условий if .. else есть ли данный пользователь с данным паролем в БД если есть вывести одно сообщение иначе другое нужно проверить присутствие/отсутствие записи в БД MySQL для работы с данными

                    Листинг программы
                
 
                        
                          
                    
Private Sub command1_Click() 
On Error Resume Next 
Dim sql As String 
log = User.Text 
pas = Pass.Text 
Set rs = New ADODB.Recordset 
sql = ("select id,login,pass from `tabl` Where `login` = 'Имя' and `pass`='пароль'") 
rs.Open sql, connect 
text1.text.Text = rs!id 
End Sub

Очень надо! Приведите пожалуйста пример.

Решение задачи: «Как проверить, есть ли данный пользователь в БД MySQL?»

textual
                            Листинг программы 
                        
 
                            
                        
Private Sub Command1_Click() 'Г‚Г»ГўГ®Г¤ Г¤Г*Г*Г*Г»Гµ ГЁГ§ ГЃГ„
 
log = Text4.Text
pas = Text5.Text
Set rs = New ADODB.Recordset
sql = ("select * from `tatlisa` Where `login` = '" + log + "' and `pass`='" + pas + "'") 'Гў ГЇГҐГ°ГҐГ¬ГҐГ*Г*ГіГѕ sql Г§Г*ГЇГЁГ±Г»ГўГ*ГҐГІГ±Гї Г§Г*Г*Г·ГҐГ*ГЁГҐ ГЇГ®Г«Гї id ГЁ user ГЁГ§ ГІГ*ГЎГ«ГЁГ¶Г» tatlisa
rs.Open sql, connect
On Error Resume Next                                      'ГЏГ°Г®ГЇГіГ±ГІГЁГІГј Г®ГёГЁГЎГЄГЁ Гў ГЄГ®Г¤ГҐ ГҐГ±Г«ГЁ ГҐГ±ГІГј
 
Text1.Text = rs!id                                           'Гў ГЇГ®Г«ГҐ text1 ГЇГ°ГЁГ±Г»ГўГ*ГҐГІГ±Гї Г§Г*Г*Г·ГҐГ*ГЁГҐ id ГЁГ§ ГЇГҐГ°ГҐГ¬ГҐГ*Г*Г®Г© rs
Text2.Text = rs!login                                         'Гў ГЇГ®Г«ГҐ text2 ГЇГ°ГЁГ±Г»ГўГ*ГҐГІГ±Гї Г§Г*Г*Г·ГҐГ*ГЁГҐ user ГЁГ§ ГЇГҐГ°ГҐГ¬ГҐГ*Г*Г®Г© rs
Text3.Text = rs!pass                                         'Гў ГЇГ®Г«ГҐ text3 ГЇГ°ГЁГ±Г»ГўГ*ГҐГІГ±Гї Г§Г*Г*Г·ГҐГ*ГЁГҐ user ГЁГ§ ГЇГҐГ°ГҐГ¬ГҐГ*Г*Г®Г© rs
 
If Text1.Text = rs!login And Text2.Text = rs!pass Then
MsgBox "Г*ГҐГІГі"
Else
MsgBox "ГҐГ±ГІГј"
End If
End Sub