Place the following code in a procedure to fill a db table with the info that is in the array.

Dim db As Database
Dim rs As Recordset
Dim i As Integer

'DB_PATH constant would need
'to be declared
Set db = OpenDatabase(DB_PATH)

'TABLE_NAME constant for the table name
'to dump the info into
Set rs = db.OpenRecordset(TABLE_NAME)

With rs
For i = 1 To 25
.AddNew
.Fields!COL_1 = myPDBArray(i).col1
.Fields!COL_2 = myPDBArray(i).col2
'AND SO FORTH
.Update
Next i
End With

rs.Close
db.Close

Set rs = Nothing
Set db = Nothing