Run time error 3343 unrecognized database format

Question

Sub Export1line()

    Application.ScreenUpdating = False

    Dim db As Database
    Dim rs As DAO.Recordset
    
    Set db = OpenDatabase("FilePath")
    Set rs = db.OpenRecordset("TargetTableName", dbOpenTable)

    rs.AddNew
    rs.Fields("Column1") = Worksheets("To Export").Range("A2").Value
    rs.Fields("Column2") = Worksheets("To Export").Range("B2").Value
    rs.Fields("Column3") = Worksheets("To Export").Range("C2").Value
    rs.Fields("Column4") = Worksheets("To Export").Range("D2").Value
    rs.Fields("Column5") = Worksheets("To Export").Range("E2").Value
    rs.Fields("Column6") = Worksheets("To Export").Range("F2").Value
    
    rs.Update

    rs.Close
    db.Close

    Application.ScreenUpdating = True

End Sub

No matter whatever file path I choose when trying to have an excel file write to an Access database, I always receive a 3343 error stating that the path is in an unknown format.

The target database was changed to.mdb files, but I still receive the same problem.

Answer 1

Try using ADODB.

Option Explicit

Sub Export1line()

    Const DB = "FilePath"
    Const TABLE = "TargetTableName"

    Dim cn As Object, rs As Object
    Dim i As Long, r As Long, n As Long
    Dim col, val(5)
    col = Array("Column1", "Column2", "Column3", _
                "Column4", "Column5", "Column6")
    
    Set cn = CreateObject("ADODB.Connection")
    With cn
        .ConnectionString = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & DB
        .Open
    End With

    Set rs = CreateObject("ADODB.Recordset")
    rs.Open TABLE, cn, 2, 2, 2 'adOpenDynamic, adLockPessimistic, adCmdTable

    With Worksheets("To Export")
        For r = 2 To 2 ' 1 row
            For i = 0 To 5
                val(i) = .Cells(r, i + 1).Value
            Next
            ' add record
            rs.AddNew col, val
            n = n + 1
        Next
    End With
    rs.Close
    cn.Close
    MsgBox n & " records added to " & TABLE
  
End Su