Sub addCaption()
    Dim dbs As Database
    Dim tdf As DAO.TableDef, fld As DAO.Field
    Dim prop As DAO.Property
 
    On Error GoTo HandleErr
 
    Set dbs = CurrentDb
 
    ' print Captions for each field, if none create one
    Set tdf = dbs.TableDefs("banks")
    For Each fld In tdf.Fields
        Debug.Print fld.Properties("Caption")
    Next fld
 
ExitHere:
    If Not tdf Is Nothing Then
        Set tdf = Nothing
    End If
 
    If Not dbs Is Nothing Then
        Set dbs = Nothing
    End If
 
    Exit Sub
 
HandleErr:
    Set prop = fld.CreateProperty("Caption", dbText, "a caption here", True)
    fld.Properties.Append prop
    Set prop = Nothing
    Resume
End Sub

hepsi = """*""" & ";""Hepsi"";"
alanlar2.RowSource = ""
With alanlar
    .RowSourceType = "Field List"
    .RowSource = tablolar
 
    For i = 0 To .ListCount - 1
        alanlar2.AddItem .ItemData(i) & ";" & .ItemData(i)
    Next
    alanlar2.RowSource = hepsi & alanlar2.RowSource
End With