Alguien me puede ayudar. Tengo un array quiero guardar su información en un tabla access..

Private Sub Comando3_Click()
a = Trim(texto)
'MsgBox Trim(a)
Dim sCampos() As String
sCampos = Split(a, "--")
Dim i As Integer
For i = 0 To UBound(sCampos)
If Len(sCampos(i)) > 0 Then
If Right(sCampos(i), 2) = vbCrLf Then
sCampos(i) = Left(sCampos(i), Len(sCampos(i)) - 2)
b = sCampos(i)
MsgBox b
Else
MsgBox sCampos(i)
End If
End If
Next
End Sub

Tengo ese código. Donde a es una cadena de texto... Quiero guardar la información de ese array en una tabla access. Alguien me puede ayudar.