[Emam emam]

السلام عليكم ورحمة الله وبركاته
عندي مشكلة في جملة الاستعلام

كود :

 Public Sub Check_Login(ByVal User_Name As String, ByVal Pass As String)
       dtCheck_Login.Clear()
       Dim cmd As New OleDbCommand("select * From UsersTable where
       User_Name=@User_Name and Pass=@Pass", connSQL)
       cmd.Parameters.Add("User_Name", OleDbType.VarChar).Value = User_Name
       cmd.Parameters.Add("Pass", OleDbType.VarChar).Value = Pass
       If connSQL.State = 1 Then connSQL.Close()
       connSQL.Open()
       dtCheck_Login.Load(cmd.ExecuteReader)
       connSQL.Close()
       cmd = Nothing
   End Sub

بتظهر رسالة الخطأ التاليه