Comparar conteúdo de um campo no CommandText

[Otacildo Ferreira da Silva]

Boa tarde,

Sou iniciante e estou desenvolvendo um programa para aprendizado. A rotina para verificação de senha esta funcionando com um pequeno erro. a linha do selcom.CommandText = "SELECT usu_Senha FROM tbl_Usuario WHERE usu_Usuario= ' " & txtUsuario.Text & "'", verifica se o usuário que digitei, é igual ao usuário do banco de dados. Até aí tudo bem, só que se digito um usuário cadastrado que possui uma senha, mas deixo a senha em branco, no If vSenha = txtSenha.Text then ele verifica a senha em branco do formulário com a váriavel que criei vSenha, passa e abre o frm_Principal, onde não deveria fazer isso, no banco de dados o usuário possuir senha.

Abaixo segue a código fonte da rotina.

Desde já, agradeço a todos os colegas.

Otacildo Ferreira da Silva

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim cs As String = My.Settings.db_EstoqueConnectionString
Dim conect As New OleDb.OleDbConnection
conect.ConnectionString = cs
conect.Open()
Dim selcom As New OleDb.OleDbCommand
selcom.Connection = conect
selcom.CommandText = "SELECT usu_Senha FROM tbl_Usuario WHERE usu_Usuario= ' " & txtUsuario.Text & "'"
Dim vSenha As String = selcom.ExecuteScalar
conect.Close()
If vSenha = txtSenha.Text Then
frm_Principal.Show()
Me.Close()
Else
MessageBox.Show("Usuário ou senha inválidos", "Usuário errada!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtUsuario.Text = ""
txtSenha.Text = ""
txtUsuario.Focus()
End If

End Sub