Use DTS.

Signature
____________________________________
William (Bill) Vaughn
Author, Mentor, Consultant
Microsoft MVP
www.betav.com/blog/billva
www.betav.com
Please reply only to the newsgroup so that others can benefit.
This posting is provided "AS IS" with no warranties, and confers no rights.
__________________________________
> Hi,
>
[quoted text clipped - 4 lines]
>
> Alex
Hi Alex,
You could use BULK INSERT statement from the SQL Server to do this or you
could use next kind of code (I did not test it, but it should work)
Dim cn As ADODB.Connection
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\pathtofile\;" & _
"Extended Properties=""text;HDR=Yes;FMT=Delimited"""
'Import by using Jet Provider.
strSQL = "SELECT * INTO [odbc;Driver={SQL Server};" & _
"Server=<server>;Database=<database>;" & _
"UID=<user>;PWD=<password>].MySQLTableNameHere " & _
"FROM [TextFile.csv]"
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
cn.Close
Set cn = Nothing

Signature
Val Mazur
Microsoft MVP
http://xport.mvps.org
> Hi,
>
[quoted text clipped - 4 lines]
>
> Alex