مشكلة مصفوفة الادوات

هذا هو كود الحدث Form Load ( ستجد التعديلات التي أجريتها باللون الأحمر ) :

Private Sub Form_Load()
    Call Main
    If rs.State = 1 Then rs.Close
    rs.Open "Select * from tbl", cn, adOpenStatic, adLockPessimistic
    If rs.RecordCount = 0 Then
        Beep
        Exit Sub
    End If

    Do While Not rs.EOF
        Dim index As Integer
        For index = 0 To Combo1.Count - 1
            Combo1(index).AddItem rs!Name
        Next index
        rs.MoveNext
    Loop
    rs.Close
End Sub

السلام عليكم ..

اخي الكريم اشكرك على المرور.

بالنسبة للكود كان جيد ، ولكن اريد حل للمشكلة الثانية والتي تكلمت عنها في المشاركة الاولى ولكني سأقوم بعرض المشكلة مرة أخرى وهي كالتالي :

لو نظرت في قاعدة البيانات التي ارفقتها ستجد بداخلها جدول يتكون من الحقول التالية وهي ( رقم الطالب - اسم الطالب - الفريق -- المهارة ) .

ومشكلتي حول الاتي وهي عندما اقوم بوضع احد ارقام الطلاب في مربع النص على الفورم يتم تحميل بقية بياناته حيث انني ارفقت الكود الذي يقوم بهذه العملية ولكن الكود به اخطأ والمشكلة الثاني لو انني قمت بوضع الرقم الطالب الموجود في قاعدة البيانات وهو الرقم ( 350 ) تحدث مشكلة في تحميل البيانات

ارجو حل مشكلتي ولكم جزيل الشكر

للرفع

للرفع

للرفع

للرفع