Visual Basic - Como cargar un combobox con una columna de una tabla

Option Explicit

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

'

'

Private Sub Form_Load()

    Set cn = New ADODB.Connection

           cn.Provider = "Microsoft.Jet.OLEDB.4.0"

           cn.ConnectionString = "Data Source = C:\reantacar.mdb;" & "Persist Security Info = False"

           cn.Open

    Set rs = New ADODB.Recordset

           rs.Open "SELECT FieldName FROM marca", cn, adOpenForwardOnly, adLockReadOnly

    Do Until rs.EOF

        Combo1.AddItem (rs!FieldName)

        rs.MoveNext

    Loop

           rsPlaats.Close

    Set rsPlaats = Nothing

End Sub

rs.Close

Set rs = Nothing