Visual Basic - AYUDA URGENTE¡¡¡

Hola a todos:
Tengo un problema, el siguiente codigo en teoria debe convertir el contenido de un recordset en una matriz y despues esta en una cadena de texto, el resultado debería ser 12,58,71 pero solo que muestra es 12, ¿me podeis ayudar? es muy urgente. Gracias de antemano

Set rs baseDatos.OpenRecordset("SELECT lpNALB FROM dlLINPAR WHERE cpNPARTE=" & nParte2 & "")
rs.MoveLast
rs.MoveFirst
'Set a= rs.GetRows(rs.RecordCount)
a= rs.GetRows(rs.RecordCount)
a= rs.RecordCount
ReDim b(matriz)
For i = 0 To UBound(a)
b(i) = a(0, i)
Next
octlTxtNAlb.Text = Join(b, ",")

No se si te servirá pero yo lo haria así

Set rs baseDatos.OpenRecordset("SELECT lpNALB FROM dlLINPAR WHERE cpNPARTE=" & nParte2 & "")

Dim a as long
Dim i as long

a = rs.recordcount
redim b(a)
i =0
while not rs.eof
b(i)=rs("ipnalb")
rs.movenext
i = i+1
wend
for i=0 to a
octtxtnalb.text = b(i)
next i

Muchisimas gracias por tu ayuda, me ha sido de mucho provecho.