[Crazy_Vb.NeT]

وعليكم السلام ، تفضل الكود التالي يقوم بالمطلوب  :

المتطلبات : 
1 Button 
2 Textbox

كود :

Dim da as New OleDb.OleDbDataAdapter
Dim Dt as New DataTable
Dt.Clear()      
da = New OleDb.OleDbDataAdapter("Select * from اسم الجدول where Username = '" & TextBox1.Text & "' and Password = '" & TextBox2.Text & "'", con)
da.Fill(Dtlogin)
If Dt.Rows.Count > 0 Then
Msgbox(" تم الدخول ")
Me.Hide()