لم أجد السجلات في قاعدة البيانات

السلام عليكم ..

استخدم هذا الكود لعملية الحفظ ... ولم أجد السجلات في القاعدة فما هي المشكلة :!

أخوكم مبتديء في الفيجوال6

	On Error Resume Next
Dim strTypes, strModel, strCounter, strUsers As String
Dim strAbout

'تحميل البيانات داخل المتغيرات
strname = Trim(Text1(0).Text)
strJOB = Trim(Text2(1).Text)
strMOB = Trim(Text3(2).Text)
strTEL1 = Trim(Text4(3).Text)
strtel2 = Trim(Text5(4).Text)

'مراجعة قيم المتغيرات وأظهار الرسائل عند إيجاد اى من الحقول فارغ
If strname = "" Then
	MsgBox "من فضلك أدخل اسم الشخص !", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "إيقاف الحفظ"
	Text1(0).SetFocus
	Exit Sub
End If

If strJOB = "" Then
	MsgBox "من فضلك أدخل عنوان الشخص !", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "إيقاف الحفظ"
	Text2(1).SetFocus
	Exit Sub
End If

If strMOB = "" Then
	MsgBox "من فضلك أدخل رقم جوال الشخص !", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "إيقاف الحفظ"
	Text3(2).SetFocus
	Exit Sub
End If


msg = MsgBox("هل أنت متأكد أنك تريد حفظ بيانات الشخص :" & " ( " & strname & " ) " & vbNewLine + " الذي يعمل في :" & " ( " & strJOB & " ) " & "؟", vbYesNo + vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading, "تأكيد الحفظ")
If msg = vbYes Then
	'أومر الحفظ
	Dim Rs As New ADODB.Recordset
	Dim SQL As String

	SQL = "SELECT * FROM جدول1 WHERE ( TEXT1(0) = '" & strname & "' AND  TEXT2(1)= '" & strJOB & "' ) "
	Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic

	If Rs.EOF Then
		Rs.AddNew
		Rs("txtname") = strname
		Rs("txtjob") = strJOB
		Rs("txtmob") = strMOB
		Rs("txttel1") = strTEL1
		Rs("txttel2") = strtel2
		Rs.Update
		MsgBox "تم تسجيل بيانات المدعو / " & " ( " & strname & " ) " & "الذي يحمل الجوال رقم / " & " ( " & strMOB & " ) " & "بنجاح", vbOKOnly + vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "نجاح الحفظ"
	  Call ClearField
	   'Call LoadnameAndSerial
		Text1(0).SetFocus
	Else
		MsgBox "الجول رقم : " & " ( " & strMOB & " ) ", vbNewLine + "لا يمكن تسجيل بيانات سيارة تحمل نفس الاسم ورقم اللوحة أكثر من مرة", 16 + vbMsgBoxRight + vbMsgBoxRtlReading, "فشل الحفظ"
	End If

	Rs.Close
	Set Rs = Nothing
Else
	MsgBox "تم إيقاف عملية حفظ بيانات المدعو / " & " ( " & strname & " ) " & "ذات رقم اللوحة" & " ( " & strMOB & " ) ", vbOKOnly + vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "إيقاف عملية"
End If

___________.rar

___________.rar