Exportar acces

[Sergio18]

Hola, tengo que hacer que una base de datos de acces se exporte a un flexgrid, pero me fallan los controles y no se que es lo k hay k hacer
aki dejo el codigo de como lo llevo

Código vb:

Public cnprueba As Connection
Public rsTbl_Direccion As Recordset
 
Private Sub Form_Load()
Dim i As Integer
'Visualizar el formulario
    Form1.Show
    Form1.Refresh
    Screen.MousePointer = vbHourglass 'reloj de arena
'crear un objeto conexion
    Set cnprueba = New Connection
'Establecer sus propiedades
     With cnprueba
        .Provider = "Microsoft.Jet.OLEBD.4.0"
        .ConnectionString = "prueba.mdb"
    End With
 
cnprueba.Open
'Crear un conjunto de registros desde la tabla Tbl_Direccion
    Set rsTbl_Direccion = New Recordset
'Establecer sus propiedades
    With rsTbl_Direccion
        .Source = "select * from Tbl_Direccion"
        .ActiveConnection = cnprueba
        .LockType = adLockOptimistic
    End With
'Abrir conjunto de registros
    rsTbl_Direccion.Open Options:=adCmdText
'Conectar los controles con los campos del conjunto de registros para
'poder visualizar los datos
    Set List1.DataSource = rsTbl_Direccion
        List1.DataField = rsTbl_Direccion.Fields(0).Name
        For i = 1 To 6
    Set List1.DataSource = rsTbl_Direccion
        List1.DataField = rsTbl_Direccion.Fields(i).Name
    Next i
Screen.MousePointer = vbDefault
End Sub
 

Ayuda pliss y Gracias