[emamtron2014]

اخي الكود شغال تمام
ولكن عليك 
1-ان تكتب اسم الفورم الذي تريد فتحه في حالة اذا كان اسم المستخدم وكلمة السر صحيحه
2- قاعدة البيانات المستخدمة هي اكسيس 2007
3- عليك تغيير اسم الجدول والحقول والمتغيرات.ممكن تبعت جزء من برنامجك وسنقوم بالتعديل عليه ان شاء الله
وهذا هو الكود بعد التعديل

كود :

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)

           frmMainMenu.Show()
       Else
           MsgBox("")
       End If