import csv ind create new table

[RobDog888]

If you want to use the Access Object Model...

Option Explicit
'Add a reference to Microsoft Access xx.0 Object Library
Private moApp As Access.Application

Private Sub Command1_Click()
    On Error GoTo My_Error

    Set moApp = CreateObject("Access.Application")
    moApp.DoCmd.SetWarnings False
    moApp.OpenCurrentDatabase "C:\RobDog888.mdb"
    moApp.DoCmd.TransferText acImportDelim, , "Table1", "C:\Test.csv", True
    'Optionally show the table if you want confirmation it imported
    'moApp.Visible = True
    'moApp.DoCmd.OpenTable "Table1", acViewNormal, acEdit
    moApp.DoCmd.SetWarnings True
    Exit Sub
My_Error:
    MsgBox Err.Number & " - " & Err.Description, vbOKOnly + vbExclamation
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    On Error GoTo My_Error
    
    moApp.CurrentDb.Close
    moApp.Quit acQuitPrompt
MyError:
    Set moApp = Nothing
End Sub