Private Sub Command1_Click()
Dim sql As String
sql = "Select * From usuarios Where login = ' " & Txtuser.text & " ' And Senha = ' " & Txtsenha.text & " ' "
Set Rs = Con.Execute(sql)
If Rs.EOF Then
MsgBox "Usuário ou senha inválidos!"
Else
Unload Me
FormCadastro.Show
End If
End Sub
O que esta errado ?
Flecha
Pergunta
Flecha
Kuroi,
Copiei um código postado por você em outro tópico
esta dando o erro 91
na linha
set rs = con.execute(sql)
Object variable With block variable not set
A sub que usei:
Editado por FlechaLink para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.