...New ADOX.Table
Dim arData() As String
Dim x As Integer, y As Integer
Dim i, j
Dim rs As ADOdb.Recordset
Set rs = New ADOdb.Recordset
Set cat.ActiveConnection = connDB
rs.Open "SELECT * FROM " & Tab_name & " Where 1=0", connDB, adOpenStatic, adLockOptimistic
rs.AddNew
rs!Vfield = Vdata...