Set RS = New ADODB.Recordset
Set RS1 = New ADODB.Recordset
 
 
SQL = "select * from rs_kullanici where kullanici_kullaniciadi='" & Text1.Text & "'"
RS.Open SQL, CON, 1, 3
If RS.RecordCount = 0 Then
    hata = MsgBox("Kullanıcı Adı  Yanlış", vbCritical + vbOKOnly, "Yanlış Giriş")
    If hata = 6 Then
        Text1.SetFocus
    End If
Else
    SQL1 = "select * from rs_kullanici where kullanici_sifre='" & Text2.Text & "'"
    RS1.Open SQL1, CON, 1, 3
    If RS1.RecordCount = 0 Then
        hata1 = MsgBox("Kullanıcı  Şifre Yanlış", vbCritical + vbOKOnly, "Yanlış Giriş")
        If hata1 = 6 Then
            Text1.SetFocus
        End If
    Else
        AnaForm.Show
        Unload Me
    End If
End If