Saygın o zaman Liste66 nın sütun sayısını 2 yapalım. Satır kaynağını boş bırakalım. Satır Kaynak türü'nü değerler listesi yapalım.
Private Sub btnmalbilgikayit_Click() yordamını aşağıdaki şekilde yazalım.

Private Sub btnmalbilgikayit_Click()

strSQL = "SELECT * FROM tbl_GirenMalBilgisi "

Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    With rstkayit

        .AddNew

        .Fields("GirenMalID") = Me.txtmalID

        .Fields("Material") = Me.txtmaterial

        .Fields("Batch") = Me.txtbatch

        .Update

    End With

    With rstkayit

   'Aşağıdaki satırdaki kod işimizi görecek.

    Liste66.AddItem Me.txtmaterial & ";" & Me.txtbatch 

     

        .MoveLast

        showRecord2 intCount & " Kayıtta " & .AbsolutePosition

    End With

End Sub

Yine olup olmadığı konsusunda dönersen sevinirim. Kolay gelsin