[سعود]

اخي الكريم عدلت على الكود الخاص بك وعمل بشكل جيد لكن لا تنسى تعديل اسم الكلاس
هذه الدالة التي بالكلاس

كود :

Public Function Login(ByVal strUserName As String, ByVal strPassword As String) As DataSet
        Dim cmd As New OleDb.OleDbCommand("select * from tb where un=@a and ps=@b", con)
        cmd.Parameters.AddWithValue("@a", strUserName)
        cmd.Parameters.AddWithValue("@b", strPassword)
        Dim dt As New DataSet
        Dim da As New OleDb.OleDbDataAdapter
        da.SelectCommand = cmd
        da.Fill(dt)
        Return dt
    End Function

وهذا كود التحقق

كود :

If txtusername.Text.Trim = "" Or txtpassword.Text.Trim = "" Then Exit Sub
        Dim c As New cls_login
        If c.Login(txtusername.Text, txtpassword.Text).Tables(0).Rows.Count > 0 Then
            MsgBox("OK")
        Else
            MsgBox("Not", MsgBoxStyle.Critical)
        End If

محدث