SALVAR CONTEUDO DE MATRIZ

USUARIO.EXCLUIDOS 23/08/2006 15:46:39
#166849

Tenho o BD em arquivos .txt delimitado por "|" utilizei este código para quebrar os campos e jogar em matrizes, mas agora não sei como jogar o valor de cada matriz em cada campo da tabela no access.

ex do arquivo txt
00001|AAS INFANTIL|004|009|CP
00009|COMPLEXO B|004|011|MG
00002|VOLTAREM 50 MG|004|009|VD

Estou utilizando este código:
Dim intFile As Integer ' Número do arquivo
Dim Matriz As Variant ' Matriz com os registros
Dim blnRegistro As Boolean ' Controla se já é registro
Dim intCont As Integer ' Contador básico
Dim strTexto As Variant 'recebe o registro inteiro

' Recebe um número para o arquivo
intFile = FreeFile

' Abre o arquivo.
Open "M:\Exportmed\TxtFiles\01082006_2300\MGA_MEDIC.txt" For Input As intFile


' Enquanto não for final de arquivo e houver linhas no arquivo faça o loop
Do While Not EOF(intFile)
' Recebe uma linha
Line Input #intFile, strTexto
Sendo registro, quebra o texto na matriz
Matriz = Split(strTexto, "|")

' Mostra a matriz no debug
Debug.Print "----------"
For intCont = 0 To UBound(Matriz) - 1 'retorna o valor p/a matriz
Debug.Print Matriz(intCont)
Next intCont
Debug.Print "----------"
blnRegistro = True



Loop
Close intFile
End Function

Se alguem puder me dar uma ajuda em como salvar isso nas tabelas do access usando VBA eu agradeço
Obrigada