[Resolvido]Importar csv para tabela

Amigos, preciso de ajuda, quero importar um arquivo .csv para uma tabela, exemplo no (csv) ele esta assim:
Equipamento-código-data
Trator-12456-01/02/2012
Vi um exemplo de importação de um .txt, alguem me ajudaria adptar para o .csv.

Ola Fabio;

Teste e retorne por favor;

Código:

Private Sub Comando0_Click()
Dim db As Database
Dim rs As Recordset
Dim linha$
Dim anArray

Open CurrentProject.Path & "\Empresas.txt" For Input As #1
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("Clientes")

Line Input #1, linha

If Len(linha) > 0 Then
Do While Not EOF(1)

Line Input #1, linha

anArray = Split(linha, ",")
    rs.AddNew
    rs(0) = Trim(anArray(0))
    rs(1) = Trim(anArray(1))
    rs.Update
Loop

MsgBox "Importação Concluída com Sucesso!!"
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing

Close #1

Else
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing

Close #1
End If
End Sub

http://dl.dropboxusercontent.com/u/771097/Importar%20TXT%20%282%29.zip

E ae, funcionou ?

JPaulo

O texto importou, mas quando tento o .csv esta dando erro.

Dá erro porque o delimitador do csv é ponto e virgula e não virgula;

Altere para:

Código:

anArray = Split(linha, ";")

Entendi JPaulo, agora deu certo
Muito Obrigado pela ajuda

Fico feliz.
Obrigado pelo retorno o forum agradece.

como faço para salvar o dado em nulo caso a coluna não tenha texto ou números?