Listboxtta listelemek istiyorsanız alttaki kodu deneyebilirsiniz.Tabii doğru anladıysam.

Sql =   buraya ilgili alan adlarını giriniz ben isime kadar yazdım.

Private Sub Aktar_Click()

    

    

    Dim Sql As String

    Dim rs As Object

    Dim cn As Object

    

    Set rs = CreateObject("ADODB.Recordset")

    Set cn = CreateObject("ADODB.Connection")

    

    Sql = "select id,ap_id,replace(ay_id,'" & cmbay1.Column(0) & "','" & cmbay2.Column(0) & "') as [ay id],kisi_id,tcno,isim from hesap where [ay_id] = " & cmbay1.Column(0) & ""

    

    If Me.cmbay1.Value = "" Or IsNull(cmbay1.Value) Then GoTo son

    If cmbay2.Value = "" Or IsNull(cmbay2.Value) Then GoTo son



    

        With cn

        If .State = adStateOpen Then

            .Close

            Set cn = Nothing

        End If

    End With



    Set cn = CurrentProject.Connection

    

    With rs

        If .State = adStateOpen Then .Close

        .CursorType = adOpenDynamic

        .CursorLocation = 3

        .LockType = adLockOptimistic

        .Open Sql, cn

    End With

    

  

    Liste15.ColumnCount = rs.Fields.Count

    Liste15.ColumnWidths = "1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM"

    Liste15.ColumnHeads = True



    Set Liste15.Recordset = rs



    rs.Close

    cn.Close

    Set rs = Nothing

    Set cn = Nothing

  Exit Sub