Pour faire un transfert de fichier CSV dans une table de base de données, il y a plusieurs manières, en voici une :
Sub Transfert()
'Cocher "Microsoft Activex Data Objects 2.6 Library" ou 2.8 ? dans les références de ton projet
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim NumFic As Integer
Dim buff As String
Dim t() As String
NumFic = FreeFile 'récupération d'un n° de fichier libre
'connexion à la base
cnn.Open "Provider=" & "Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "c:\temp\bd1.mdb;"
'ouverture d'un recordset sur ta table
rst.Open "select * from table1", cnn, adOpenKeyset, adLockOptimistic
'ouverture du fichier texte
Open "c:\temp\essai.txt" For Input As #NumFic
'si la 1ère ligne contient des noms de champ, on la zappe
'Line Input #NumFic, buff
'lecture du fichier texte
Do While Not EOF(NumFic)
Line Input #NumFic, buff 'lecture d'une ligne
t = Split(buff, ";") 'transfert dans un tableau
'ajout d'un enregistrement
rst.AddNew
rst!champ1 = t(0)
rst!champ2 = t(1)
'...
rst.Update
Loop
'fermetures et libération de la mémoire
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Sub
A toi de modifier les chemins et nom de ta base et du fichier texte ainsi que le nom de la table et des champs.
-------------------------------------------------
Dresseur de puces, .... normal pour un loup 
!?