Getrows, og split af disse. how to ?

Hvad er det jeg gør galt her siden jeg kun får en post over i mit array ?

Dim MyArray()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim I As Integer
Set db = CurrentDb
SQL = "SELECT felt1, felt2 from tabel1;"
Set rs = db.OpenRecordset(SQL)
rs.MoveLast
rs.MoveFirst
ReDim MyArray(0 To rs.RecordCount)
MyArray = rs.GetRows()
rs.Close
Set rs = Nothing
Set db = Nothing
For I = 0 To UBound(MyArray, 2)
MsgBox MyArray(0, I) & " : " & MyArray(1, I)
Next

Jeg har trukket posterne over i en listbox og der får jeg de 10 poster der pt er
MyArray(0, I) indeholder datoer(dd-mm-yyyy), MyArray(1, I) indeholder en tekststreng af varierende længde(65@KP@@34@Ass@@....)

disse skal jeg har viderebearbejdet
jeg har brug for at få separeret dag, måned og år.

tekststrengen skal jeg have splittet, i første omgang ved @@

hvis jeg kommmer så langt tror jeg at jeg klarer det sidste split selv...

håber der er en eller flere der har et par bud :-)

og det foregår i VBA ..

/dm013