استعلام داخل استعلام

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

عندي استعلام ماني عارف كيف اصيغه وياليت احد يساعدني

عندي جدول للمرضى وجدول للمواعيد قاعدة البيانات منشأها على الأوراكل ومسوي ربط بينها

المشكلة انه ماني عارف كيف اسجل لكل مريض موعد بشرط انه الموعد ما يتكرر مره ثانيه لنفس المريض

وانا مسوي الكود بالشكل هذا

CN.Open "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist Security Info=True;User ID=scott;Data Source=iraheema"

Dim str1, str2, str3, str4, str5, str6, str7, str8, str9, str10 As String

str1 = Trim(Text1.Text)

str2 = Trim(Combo1.Text)

str3 = Trim(Text3.Text)

str4 = Trim(Text4.Text)

str5 = Trim(Text5.Text)

str6 = Trim(Text6.Text)

str7 = Trim(Text7.Text)

str8 = Trim(Text8.Text)

str9 = Trim(Text9.Text)

str10 = Trim(Text10.Text)

Calendar = vbCalHijri

Msg2 = MsgBox("åá ÃäÊ ãÊÃßÏ Ãäß ÊÑíÏ ÍÝÙ ÇáãæÚÏ" & " ( " & Ü & " ) " & "¿", 36 + vbMsgBoxRight, "ÑÓÇáÉ ÊÃßíÏ ÍÝÙ ÇáÈíÇäÇÊ")

If Msg2 = 6 Then

Dim RS As New ADODB.Recordset

Dim SQL As String

RS.Open "appointments", CN, adOpenDynamic, adLockPessimistic

RS.Find "patient_id= '" & str1 & "' " هنا اللخبطه

If RS.EOF Then هنا اللخبطه

RS.Find "Appt_start_Date= '" & str3 & "' " هنا اللخبطه

If RS.EOF Then

RS.AddNew

RS("patient_id") = str1

RS("Appt_type") = str2

RS("Appt_start_Date") = str3

RS("Appt_end_date") = str4

RS("Num_days") = str5

RS("Total_Amount") = str6

RS("Inv_Number") = str7

RS("Approval_status") = str8

RS("NUM_WATCHER") = str9

RS.Update

MsgBox "Êã ÊÓÌíá ÈíÇäÇÊ ÇáãæÚÏ" & " ( " & Text2.Text & " ) " & "ÈäÌÇÍ" & " ÈÑÞã " & "..(" & Text1.Text & ")..å", vbInformation + vbMsgBoxRight, "äÌÇÍ ÚãáíÉ ÇáÍÝÙ"

Else

MsgBox "ÚÝæÇð , åÐÇ ÇáãæÚÏ ãÓÌá ãä ÞÜÈá" & " ( " & str1 & " ) " & "ãÓÌá ãä ÞÈá", 16 + vbMsgBoxRight, "ÊßÑÇÑ "

End If

RS.Close

Set RS = Nothing

End If

CN.Close

End If

يارليت احد يقدر يفيدني

ولكم كل التحيه والتقدير