leitura de arquivo csv e gravar em access

[Alex Mauricio]

bom dia pessoal.

estou com um problemaço...

seguinte... criei um commondialog para selecionar o arquivo etc, etc,

beleza

até ai tudo bem

agora.... preciso ter noção de como ler o arquivo linha por linha e depois fazer um insert no BD.

os textos que achei sobre isso fico muito vago...

alguém consegue me dar uma idéia de como fazer?????????

obrigado....

Private Sub selecionarArquivos()
    Dim tipo As String
    Dim caminho As String
    Dim nomeArq
    Dim numLinha

    'CONFIGURA A CAIXA DE DIÁLOGO
    cmmCarregaArquivo.DialogTitle = "Selecione um arquivo para carregar no Banco de Dados!"
    cmmCarregaArquivo.InitDir = "c:"
    'cmmCarregaArquivo.InitDir = App.Path  --> mostra o diretório onde está o sistema
    'cmmCarregaArquivo.FileName = arquivo - CASO QUEIRA DEIXAR PRÉ-DEFINIDO UM ARQUIVO
    tipo = "Arqs. CSV(*.csv)|*.csv|Todos " & "Arqs. (*.*)|*.*|"
    cmmCarregaArquivo.Filter = tipo
    cmmCarregaArquivo.Flags = cdlOFNFileMustExist + _
                                cdlOFNHideReadOnly + _
                                cdlOFNLongNames + _
                                cdlOFNExplorer
    cmmCarregaArquivo.CancelError = False
    cmmCarregaArquivo.ShowOpen

    If cmmCarregaArquivo.FileName = "" Then
    MsgBox "0 (zero) arquivo(s) selecionado!", vbInformation + vbOKOnly, "Alerta"
    Else
        
        lblCaminho = cmmCarregaArquivo.FileName
        lblTamanhoArquivo = FileLen(cmmCarregaArquivo.FileName)

        'LEITURA DO ARQUIVO CSV
        nomeArq = lblCaminho

        Open nomeArq For Input As #1
            Do While Not EOF(1)
                Line Input #1, numLinha



            Loop
            Close #1

    End If

End Sub