Hi Adam
Function TerrysFunction()
Dim tbl As TableDef, rs As Recordset, rs2 As Recordset
Dim fld As Field, x As Integer, i As Integer, j As Integer
Set tbl = CurrentDb.CreateTableDef("mymatrix")
With tbl
.Fields.Append .CreateField("myNumber", dbLong)
End With
For x = 1 To...