Visual Basic - como conectar visual basic 6.0 y access 2003

Private Sub Form_Load()

    '''''''''''Me.Picture1.Picture = LoadPicture(App.Path & "FOTOSSECTOR CENTRO.JPG")

    ' nueva conexión

    Set cnn = New ADODB.Connection

    ' Abre la conexión

    With cnn

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

        .ConnectionString = "Data Source = " & App.Path & "BD_IMAGENES.mdb"

        .Open

    End With

    ' Nuevo Recordset para el DataComo

    Set rs_Combo_Carga_Inicio = New ADODB.Recordset

    ''---------------------------------------

    rs_Combo_Carga_Inicio.Open "SELECT NOMBRE From INICIO", cnn, adOpenStatic

    Me.Combo1.Clear

    Do Until rs_Combo_Carga_Inicio.EOF

        Combo1.AddItem rs_Combo_Carga_Inicio!NOMBRE

        rs_Combo_Carga_Inicio.MoveNext

    Loop

    ''---------------------------------------

End Sub