Mais uma vez estou aqui para pedir uma ajudinha.

Galera estou criando um form com login e  senha , mas quando a pessoa digita qualquer coisa ele aceita, queria que quando a pessoa digitase errado ele não aceitasse.

 

Ai vai o codigo que estou usando se alguem puder me ajudar obrigado.

 

 

Private Sub Cmd_Ok_Click()

Dim V_sql    As String

 

V_sql = "select * from Tab_login where login_nome '" & Txt_Nome.Text & "'" 'and login_senha '" & Txt_Senha.Text & "'"

Ado_Login.RecordSource = V_sql

 

If Ado_Login.Recordset.RecordCount = V_sql Then
   
    Frm_Pedido.Show
    Unload Me
Else
   
    MsgBox "Usuário não existe ou senha inválida", vbCritical, "Usuário ou Senha incorreto"
    Txt_Nome.SetFocus
   
End If

End Sub

 

Flaks -> Eu costumo fazer assim:

Dim RstADO As ADODB.Recordset

Set RstADO = New ADODB.Recordset

 

With RstADO
        
  SQL_Query = " Select Usuario,Senha,Altera_Senha,Bloquear_Usuario From Usuario" _
                  & " Where Usuario= '" & TxtUsuario.Text & "' And Senha = '" & TxtSenha.Text & "' "
                     
            
             Debug.Print SQL_Query
             .Open SQL_Query, ConnADO
         
            
             If RstADO.EOF Then
                                        
                MsgBox "Usuario ou Senha Inválida", vbInformation, "Controle de Estoque"
                  TxtUsuario.Text = ""
                  TxtSenha.Text = ""
                  TxtUsuario.SetFocus
                  Screen.MousePointer = vbDefault
                  Exit Sub
             
             End If

 

Qualquer dúvida me avise que te explico melhor.

antes desta linha:

tente usar:

 

E acho que esta linha: