[hannileo]

السلام عليكم ورحمة الله وبركاته ,,,

اخواني عندي الكود اود حفظ اسم ورقم الزبون في الجدول 
ولكن اذا وجد اسمه مسبقا اود ان لا يقوم بشيئ 
وان لم يكن موجود يضيفه لقاعدة البيانات 

كود :

If rs.State = 1 Then rs.Close
sql = "select * from tblCustomers where CustName = " & Trim(txtCust.Text) & " and CustCont = '" & Trim(txtCont.Text) & "'"
rs.Open sql, cn

الكود التالي يظهر خطأ عند سطر الاول (الاتصال بقاعدة البيانات)

هل يمكن ان تدلوني على الخطا او اصلاحه بشكل افضل من فضلكم ولكم جزيل الشكر

كود :

If Trim(txtCust.Text) = "" Then MsgBox "الرجاء التأكد من المدخل ", vbInformation, "": Exit Sub
If Trim(txtCont.Text) = "" Or Not IsNumeric(txtCont.Text) Then MsgBox "الرجاء التأكد من المدخل ", vbInformation, "": Exit Sub


'------------------------
'البحث عن القيمتين رقم الجوال والاسم قبل عملية الاضافة فاذا وجدا لم يقم بالاضافة بل سيسألك اذا رغبت بالتعديل عليه


If rs.State = 1 Then rs.Close
sql = "select * from tblCustomers where CustName = " & Trim(txtCust.Text) & " and CustCont = '" & Trim(txtCont.Text) & "'"
rs.Open sql, cn



With rs
 If rs.EOF Then
'في عدم وجود السجل سيتم تنفيذ الكود التالي

.AddNew
       
           Else
'في حال وجود السجل سيتم تنفيذ الكود التالي
       
           Msg_1000 = MsgBox("السجل موجود هل تريد التعديل عليه", vbQuestion + vbYesNo, "")
        If Msg_1000 = vbYes Then
       
         update.
               Else
               
           Exit Sub
        End If

 End If


!custName = Trim(txtCust.Text)
!custcont = Trim(txtCont.Text)


   .Update

.Close
End With