Access - LLenar un array

Hola, necesito vuestra ayuda, tengo un array que quiero rellenar con una variable. es decir yo tengo la variable DATOS="hola","Que tal","estas" quiero pasarla a un array, así, A=Array(DATOS) de tal manera que A(0) sea hola, A(1) sea Que tal etc.
No consigo pasar este dato y construir el array.
También me interesaría saber como he de hacer para rellenarlo con un recordset.

Muchas gracias.

Private Sub Comando0_Click()
' caso sencillo para almacenar en un array
' los nombres de los campos de la tabla "ListMst"
'Espero que sea útil:
Dim dbsActual As Database
Dim rstTablaMst As Recordset
Dim A As Variant, bytStart As Byte
Set dbsActual = CurrentDb
Set rstTablaMst = dbsActual.OpenRecordset("TablaMst")

A = Array(rstTablaMst.Fields(0).Name, rstTablaMst.Fields(1).Name, _
rstTablaMst.Fields(2).Name, rstTablaMst.Fields(3))
For bytStart = 0 To 3
MsgBox A(bytStart)
Next
rstTablaMst.Close
Set dbsActual = nothing
'Para el caso de la primera pregunta: almacenar varios datos en una variable
'se me complica ya que no encuentro la forma "juntar" variables y formar una
'nueva variable concatenada.

End Sub

Private Sub Comando0_Click()
' caso sencillo para almacenar en un array
' los nombres de los campos de la tabla "ListMst"
'Espero que sea útil:
Dim dbsActual As Database
Dim rstTablaMst As Recordset
Dim A As Variant, bytStart As Byte
Set dbsActual = CurrentDb
Set rstTablaMst = dbsActual.OpenRecordset("TablaMst")

A = Array(rstTablaMst.Fields(0).Name, rstTablaMst.Fields(1).Name, _
rstTablaMst.Fields(2).Name, rstTablaMst.Fields(3))
For bytStart = 0 To 3
MsgBox A(bytStart)
Next
rstTablaMst.Close
Set dbsActual = nothing
'Para el caso de la primera pregunta: almacenar varios datos en una variable
'se me complica ya que no encuentro la forma "juntar" variables y formar una
'nueva variable concatenada.

End Sub