k, i treid again with this code... still nothing happens at all...
Private Sub cmdButton_Click()
Dim sql As String, tdf As DAO.TableDef, fld As DAO.Field, db As DAO.Database
'set database & tabledefs (I use "tblSource" as your table name)
Set db = CurrentDb
Set tdf = db.TableDefs("Table2")...