[ali saud]

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

---

da = New OleDbDataAdapter(" select * from Reviews  ", con)
       da.Fill(dt)
في فورم الزيارات
وهذا في زر الاختيار  في الفورم الاول 
    If ID.Text = "" Or age.Text = "" Then
           MsgBox("يرجى اختيار المريض")
           Return
       Else
           Visits.Show()
       End If