So the following code doesn't throw any error, however it is creating an empty array, when there should be 4 array records. Not sure what exactly needs to change, but I'm thinking I'm missing a step to build a complete array rather than resetting the array with each iteration.
Code:
Dim vArray As Variant, i As Index, vPath As String, tblPaths As TableDef, dbs As Database
Set dbs = CurrentDb
Set tblPaths = dbs.TableDefs!tmpPaths
Set rs2 = dbs.OpenRecordset("tmpPaths")
With rs2
For Each i In tblPaths.Indexes
Do While Not rs2.EOF
vPath = rs2.Fields("Paths")
vArray = Array(vPath)
rs2.MoveNext
Loop
Next i
End With
rs2.Close
Set rs2 = Nothing
MsgBox vArray 'For testing purposes