ارجوكم مساعة في اقر ب وقت بكرة امتحان

مسامحه على التقليل والباقي عاد اتعب عليه اشوي وموفق ان شاء الله

: 
Data1.Recordset.MoveFirst 
البحث في الدتا يالانتقال الى الامام
If Text1.Text = "" Then 
هنا اداة شرط وهي ان تكست =  لاشيء طبق 
MsgBox "YOU MUST ENTER A STUDENT NAME" 
وهذا الشرط المطبق في حالة الشرط السابق
Text1.Text = "" 
تابع لتنفيذ الشرط وهو التكست يكون محتواه فارغ
Text1.SetFocus 
هنا يخلي المؤشر في التكست
End If 
نهاية الشرط
USTDN = Text1.Text 
هذا لوضع التكست = USTDN
FIN2 = Text2.Text 
نفس الموجود بالاعلى
' "FMID >= 80 AND SMID >= 90" 

FINDS = "STDN LIKE '*" & USTDN & "*'" 

Data1.Recordset.FindFirst FINDS 
If Data1.Recordset.NoMatch Then 
MsgBox "NO MUCH, TRY AGAIN" 
Text1.Text = "" 
Text1.SetFocus 
Else

Do Until Data1.Recordset.NoMatch 
هنا التكرار حتي وجود المطلوب
List1.AddItem Data1.Recordset("STDN") 
عرض 
Data1.Recordset.FindNext FINDS 
Loop 

End If

ان شاء الله مرتاح

;)