Cargar un .txt delimitado por comas a una bd access

Hay varias formas de hacer eso. Una es conectándote al txt mediante Ado. Luego con el recordset de los datos del Txt, podes hacer un Insert Into a la tabla
Código:
Private Function DatosTxt(Path As String) As ADODB.Recordset
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & Path & ";", "", ""
rs.Open "select * from [datos#txt]", conn, adOpenStatic, _
adLockReadOnly, adCmdText
' devuelve el recordset a la función
Set DatosTxt = rs
Set rs = Nothing
Set conn = Nothing
End Function
Lo anterior se conecta al archivo txt "datos.txt" y te devuelve un recordset
saludos