الرساله اللى بتظهر ( يزوج على نحو غير ملائم)

ياترى يا اخوان فين الخطا فى الكود التالى :-

Dim user_no, user_name, user_pass As String

user_no = TextBox1.Text

user_name = TextBox2.Text

user_pass = TextBox3.Text

If user_no = "" Or user_name = "" Or user_pass = "" Then

MsgBox("ادخل كلمه السر الصحيحه من فضلك ")

Exit Sub

End If

Dim dr As OleDbDataReader

cm.CommandText = (" select * from pass where user_no = '" & user_no & "'")

cm.Connection = cnn

dr = cm.ExecuteReader

Do While dr.Read

If user_name = dr("user_name") And user_pass = dr("user_pass") Then

MsgBox(" ربنا ادخلنا مدخل صدق واخرجنا مخرج صدق")

Form1.Show()

Me.Close()

Else

MsgBox("تحقق من كلمه السر من فضللك ")

End If

Loop

dr.Close()

		Dim user_no, user_name, user_pass As String
		user_no = TextBox1.Text
		user_name = TextBox2.Text
		user_pass = TextBox3.Text
		If user_no = "" Or user_name = "" Or user_pass = "" Then
			MsgBox("ادخل كلمه السر الصحيحه من فضلك ")
			Exit Sub
		End If
		Dim dr As OleDbDataReader
		cm.CommandText = (" select * from pass where user_no = '" & user_no & "'")
		cm.Connection = cnn
		dr = cm.ExecuteReader
		Do While dr.Read
			If user_name = dr("user_name") And user_pass = dr("user_pass") Then
				MsgBox(" ربنا ادخلنا مدخل صدق واخرجنا مخرج صدق")
				Form1.Show()
				Me.Close()
			Else
				MsgBox("تحقق من كلمه السر من فضللك ")
			End If
		Loop
		dr.Close()