Access - Conectarse a Access

Sub TraspasarDatosALaTabla()

    ' Reemplaza "Ruta\ArchivoDeBaseDeDatos.mdb" con la ruta y nombre de tu archivo de base de datos de Access

    Dim strRutaBaseDeDatos As String

    strRutaBaseDeDatos = "Ruta\ArchivoDeBaseDeDatos.mdb"

    ' Crea una nueva instancia del objeto Database

    Dim db As Database

    Set db = OpenDatabase(strRutaBaseDeDatos)

    ' Reemplaza "NombreDeTabla" con el nombre de tu tabla en Access

    Dim strNombreTabla As String

    strNombreTabla = "NombreDeTabla"

    ' Reemplaza "FlexGrid1" con el nombre de tu FlexGrid (control de cuadrícula) en Visual Basic 5.0

    Dim fg As Object

    Set fg = FlexGrid1

    ' Recorre las filas del FlexGrid y guarda los datos en la tabla de Access

    Dim i As Integer

    For i = 1 To fg.Rows - 1

        Dim dato As Integer

        dato = CInt(fg.TextMatrix(i, 1)) ' Suponiendo que el dato está en la columna 1 del FlexGrid

        ' Crea un nuevo registro en la tabla y asigna el valor del dato

        Dim rs As Recordset

        Set rs = db.OpenRecordset(strNombreTabla, dbOpenDynaset)

        rs.AddNew

        rs.Fields("NombreCampoEnAccess") = dato ' Reemplaza "NombreCampoEnAccess" con el nombre del campo en la tabla de Access

        rs.Update

        rs.Close

    Next i

    ' Cierra la conexión con la base de datos de Access

    db.Close

    Set db = Nothing

    MsgBox "Datos traspasados correctamente a la tabla en Access.", vbInformation

End Sub