كيف اضيف محتويات قاعدة بيانات الى كومبو؟

هذا الكود :

    Dim Rs As New ADODB.Recordset
    Dim SQL As String
    
    SQL = "SELECT Name FROM Table1"
    Rs.Open SQL, DB, adOpenDynamic, adLockPessimistic
    
    Dim I
    For I = 1 To 100000
        If Rs.EOF = False Then
            List1.AddItem Rs("Name")
            Rs.MoveNext
        Else
            Exit For
        End If
    Next

وهذا كود آخر غيره :

'ضع هذا الجزء في موديول
Public Sub FillComboBox(Comboboxname As ComboBox, SQL As String, Fieldname As String)
   
    Dim ado As ADODB.Connection
    Dim rsTemp As ADODB.Recordset
    
    Set ado = CreateObject("ADODB.Connection")
    
    
    ado.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
       
    Set rsTemp = CreateObject("ADODB.Recordset")
           
    With rsTemp
        .LockType = adLockReadOnly
        .CursorType = adOpenForwardOnly
    
        .Open SQL, ado
    End With
    
    
    Comboboxname.Clear
    
    Do While Not rsTemp.EOF
        Comboboxname.AddItem rsTemp(Fieldname)
        rsTemp.MoveNext
    Loop
    
    
    rsTemp.Close
    Set rsTemp = Nothing
    
    Comboboxname.ListIndex = 0
    
    ado.Close
    Set ado = Nothing
   
End Sub

'وهذا الكود مثال للإستدعاء
Call FillComboBox(Combo2, "Select ProductName from Products", "ProductName")

تحياتي

شكرا جزيلا لجميع الإخوة

أخي النبهاني لقد استخدمت الكود الأول الذي قمت بوضعه ولكن لدي استفسار بسيط سأعرضه بمثال

لقد قمت باستيراد بيانات الكومبو من جدول mname وحقلmname

إذا قام المستخدم باختيار ( محمد ) مثلا من الكومبو ، ثم ضغط على مفتاح save أريده أن يقوم بتخزين (محمد) في جدول آخر وهوtabel2

في حقل mnamein

كيف يتم ذلك؟ وهل أكتب الكود في حدث click لمفتاح save ؟