Visual Basic - AYUDA: Importar un archivo separado por comas

Hola, quisiera saber como importar un archivo de texto separado por comas a una tabla... dando la posibilidad al usuario de específicar el nombre de los campos, lo que pasa es que muy probablente me cambien el numero de campos y no puedo especificar con Mi( ) cada campo, asi que me gustaría utilizar algo como el importador de archivos que maneja Excel y Access.. si alguien tiene idea de como hacerlo se los agradecere.... GRACIAS

Mira a ver si te sirve esto.
Es un fichero delimitado por la tacla"#", no por comas, pero solo tienes que cambiar la tecla que delimita los campos, tienes también la opación de eliminar la primera linea si se trata de los títulos de los campos.
Si tienes alguna duda me preguntas, espero que te sirva.
Private Sub crear()
l5.Caption = "GENERANDO TABLA DE TARIFAS"
Dim vt2 As Variant
Dim vi As Integer
Dim vd As Double
Dim vf As Date
Dim vs As String
Dim vr1 As Recordset
Module1.conex
cn1.Open
' DataEnvironment1.cn1.Open
vgvs = "SELECT crp,ccp,cean,cpvp,cuc,ccpa,cpp,cfd FROM tt"
Set vr1 = New Recordset
With vr1
.Source = vgvs
.ActiveConnection = cn1
.CursorType = adOpenKeyset
.CursorLocation = adUseServer
.LockType = adLockOptimistic
End With

vr1.Open Options:=adCmdText
Open vgt2 For Input As #1

Do While Not EOF(1)
vr1.AddNew
Line Input #1, vt1
vt2 = Split(vt1, "#", -1, OptionCompare = 2)
vr1.Fields(0) = vt2(0)
vs = Left(vt2(2), 10)
vr1.Fields(1) = vs
vr1.Fields(2) = vt2(3)
vd = CDec(vt2(4))
vr1.Fields(3) = vd
vi = CInt(vt2(6))
vr1.Fields(4) = vi
vi = CInt(vt2(7))
vr1.Fields(5) = vi
vs = Left(vt2(8), 25)
vr1.Fields(6) = vs
If IsDate(vt2(13)) = True Then
v