[emamtron2014]

وعليكم السلام ورحمة الله وبركاته
انا عندي كود بطريقه اخري
ممكن يحل مشكلتك
تفضل الكود

كود :

Public Sub Login_load(ByVal User_Name As String, ByVal Pass As String)
       dtLogin.Clear()
       Dim cmd As New OleDbCommand("select * from UsersTable where User_Name=@User_Name and  Pass=@Pass", connAccess2007)
       cmd.Parameters.Add("User_Name", OleDbType.VarChar).Value = User_Name
       cmd.Parameters.Add("Pass", OleDbType.VarChar).Value = Pass
       connAccess2007.Open()
       dtLogin.Load(cmd.ExecuteReader)
       connAccess2007.Close()
       cmd = Nothing
   End Sub

       Login_load(TextBox1.Text, TextBox2.Text)

       If dtLogin.Rows.Count > 0 Then
           user_id = dtLogin.Rows(0).Item(0)
       End If