Login Giriş Sayfası Hatası

Oluşturduğum program login formunda şu şekilde kod kullandım ama hep hata alıyorum. Yardımcı olabilirseniz sevinirim.
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim komut As New OleDbCommand
Try
If IsDBNull(tbxsifre.Text) = False Then
Dim ds As New DataSet
komut.Connection = b
komut.CommandType = CommandType.Text
komut.CommandText = "select username_,password_ from tblusers where username_='" & cmdkullanıcı.Text & "' and password_='" & tbxsifre.Text & "'"
Dim oku As OleDb.OleDbDataReader = komut.ExecuteReader
If oku.Read = True Then
If (ds IsNot Nothing) AndAlso (ds.Tables.Count > 0) AndAlso (ds.Tables(0).Rows.Count = 1) Then
admin = CBool(ds.Tables(0).Rows(0).Item("admin"))

If admin = True Then
MsgBox("Yönetici Hoşgeldiniz" & cmdkullanıcı.Text & "!", MsgBoxStyle.OkOnly, "")
Else
MsgBox("Hoşgeldiniz" & cmdkullanıcı.Text & "!", MsgBoxStyle.OkOnly, "")
End If

giris = True
kisiid = cmdkullanıcı.Text
Me.Close()
End If
Else
MsgBox("Kullanıcı Adı veya Şifre Yanlış!", MsgBoxStyle.OkOnly, "")
giris = False
End If
End If
Catch ex As Exception
MsgBox("Hata!!!")
giris = False
End Try
End Sub

programın bir parçası ektedir......................

merhaba,
ilk etapta sadece kullanıcı ve şifre doğrulaması yaptırarak dene. hatta sadece kullanıcı kriterlerlerini karşılıklı sorgulatarak girişi yaptır. ayrıca ilk etapta Admin olarak kriter sorgulayıp giriş yapmasın. ki buna göre hatanın asıl yerini bulabiliriz.. admin olarak sorgulamadan girişi yaparsa bu durumda admin için kullanılan kodda hata var anlayacaz. birde combo da text ile karşılaştırıp giriş yapmak yerine comboda isimler görünecek şekilde arka planda da sayı çalışsın. yani combo da iki alan olacak ilki gizli ve 0 genişlik diğeri ise kullanıcı adları ve görünür. çünkü text karşılıklı sorgulamalarda mutlaka hata verebilmektedir. bunları bir dene olmazsa vb.net yükleyip kendi bilgisayarımda deneyeyim.
selamlar.

evet dediğiniz gibi yaptım. Kullanıcı girişinde bir sorun yok ama adminin sorguladığımda hata veriyor, yada -- kullanıcı adı veya şifre yanlış diyor. admin sorgulamasını nasıl yapabilirim?
Birde Login Formunu şifre doğruysa me.hide ile gizleyim ana formu açıyorum. Ana formu çıkış butonu ile me.close ile kapattığımda ekran kapanıyor ama program hala çalışır durumda bulunuyor bunu nasıl düzelte bilirim?

Konuya cevap bekleniyor..