[ask] login vb.net

[begitukah]

om yang keren tolong dong,cek ini salah dimana yah,udah mau jalan tapi masa password salah terus,kurang apa yah

Quote:Sub login()
Dim objCommand As New OleDbCommand
objCommand = New OleDbCommand
Dim frMenu As New frMenu
If Txtpass.Text = "" Then
MessageBox.Show("Password Harap Diisi", "DATA LOGIN", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Txtpass.Text = ""
Txtuser.Focus()
Else
strsql = " select * from t_kasir " _
& " where pass_kasir = '" & Txtpass.Text & "'"
objCommand.Connection = koneksidb.koneksi
objCommand.CommandText = strsql
objDataReader = objCommand.ExecuteReader
If Password <> Trim(Txtpass.Text) Then
MessageBox.Show("Password Salah", "SALAH PASSWORD", MessageBoxButtons.OK, MessageBoxIcon.Error)
Txtpass.Text = ""
Txtpass.Focus()
Else
Me.Close()
frMenu.Show()
End If
End If
End Sub

[DC™Rebels]

tunggu om DC aja ya kak :)