[سعود]

مارايك اخي ان تنظر لهذا المثال السريع
موديول:

كود :

Module Module1
   Public con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
End Module

كلاس:

كود :

Public Class cls_login
   Public Function isfound(ByVal un As String, ByVal ps As String) As Boolean
       Dim cm As New OleDb.OleDbCommand("", con)
       cm.CommandText = "select count(tid) from tb where un=@un and ps=@ps"
       cm.Parameters.AddWithValue("@un", un)
       cm.Parameters.AddWithValue("@ps", ps)
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       If cm.ExecuteScalar > 0 Then
           Return True
       Else
           Return False
       End If
       If con.State = ConnectionState.Open Then
           con.Close()
       End If
   End Function
End Class

فورم به مربعي نص وزر امر

كود :

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim c As New cls_login
       If c.isfound(txtusername.Text, txtpassword.Text) Then
           MsgBox("OK", MsgBoxStyle.Exclamation, "")
       Else
           MsgBox("NO", MsgBoxStyle.Critical, "")
       End If
   End Sub


End Class