[قناص المدينة]

على اعتبار انه قاعدة بيانات
الحقول
user_name
pass_user

الواجهه
في مربعي نص الاول اسمة txt_user
والثاني اسمة txt_pass

كود :

If txt_user.Text = "" Or txt_pass.Text = "" Then


         MsgBox("يرجى ملئ الحقول", MsgBoxStyle.Critical, "لاتوجد بيانات")

         Exit Sub


      End If

      adapt = New OleDbDataAdapter("select * from user_tab  where user_name ='" & txt_user.Text & "'", con)

      adapt.Fill(dts)

    
      If dts.Rows.Count > 0 Then

         If txt_pass.Text = dts.Rows.Item(0).Item("pass_user") Then
          
             اكتب هنا اسم الفورم المراد عرضه
'form1.show
        

            Me.Close()
         Else

            MsgBox("كلمة المرور خاطئة", MsgBoxStyle.Critical, "خروج")
            Exit Sub

         End If


      Else

         MsgBox("هذا الاسم غير موجود", MsgBoxStyle.Critical, "خروج")
         Exit Sub
      End If