[sendbad100]

امين تقبل الله منا ومنكم صالح الاعمال 

اضف الكود التالي في     زر الأمر 2 بالفورم 2   وامسح السابق

كود :

Call Connection

If RS.State = 1 Then RS.Close

RS.Open "select * from LIST1A", DB, adOpenStatic, adLockOptimistic


If RS.RecordCount < 1 Then

MsgBox "عفوا قم اولا بادخال النتائج والحفظ "

       RS.Close
   Exit Sub
End If

Me.Hide
Form1.Show