I would like to add new fields in existing "table1" in Database (mdb)

[regis]

Hi

I need help to insert a new fields in existing table (mdb)...

So I would like to use Data object to insert new fields (just it's possible)

How can i do that ?

Thanks
Redg

[Iouri]

Dim tbl As ADOX.Table
Set tbl = New ADOX.Table
tbl.Name = "tblCustomer"
cat.Tables.Append tbl

'=========

Dim col As ADOX.Column
Set col = New ADOX.Column' Create first name field
With col
.Name = "FirstName"
.DefinedSize = 50
End With

' Add the new column to the table.tbl.Columns.Append col
Set col = New ADOX.Column

' Create last name field.
With col
.Name = "LastName"
.DefinedSize = 50
End With

' Add the new column to the table.
tbl.Columns.Append col
'or--------shortcut to add column------
tbl.Columns.Append "FirstName", _
adVarWChar, 50
tbl.Columns.Append "LastName", _
adVarWChar, 50
'------------

Iouri Boutchkine
[email protected]