Thanks in advance.

Gilles Pol
Arnhem, The Netherlands

Set a reference to Access Type Library under Tools/References.  Then use
Automation to start a new instance of Access, issue a Docmd.TransferText on
the CSV file.  You might have to define and use a custom Import
Specification if some data comes in weird.

HTH
--
Dev Ashish (Just my $.001)
---------------
The Access Web ( http://home.att.net/~dashish )
---------------

Brian Walton

Sub db1()

Dim oMyDB As Database
Dim oMyDBrs As Recordset
Dim iMyFreeFile As Integer
Dim sField0 As String
Dim sField1 As String

' open the database you want to write to
Set oMyDB = Workspaces(0).OpenDatabase("c:\mydocu~1\xltest.mdb")
' set the recordset to the table you want to write to
Set oMyDBrs = oMyDB.OpenRecordset("table1", dbOpenDynaset)

' get a freefile number
iMyFreeFile = FreeFile

' open the csv file
Open "c:\mydocu~1\xltest.csv" For Input As #iMyFreeFile

' loop through the csv file & write to the database
Do While Not EOF(iMyFreeFile)
    ' get the next two fields in the csv file
    Input #iMyFreeFile, sField0, sField1
    ' create a new record
    oMyDBrs.AddNew
    ' must update the record after creating new
    oMyDBrs.Update
    ' make sure you are on new record you just created
    oMyDBrs.MoveLast
    ' go into edit mode
    oMyDBrs.Edit
    ' update the record.
    oMyDBrs.Fields(0).Value = sField0
    oMyDBrs.Fields(1).Value = sField1
    oMyDBrs.Update
Loop

' now close the file
Close #iMyFreeFile

End Sub