Adding text to columns within a table

Hi guys

Im using VB 2008 Express Edition

Could someone please help me to add text in the two corrosponding tables like sales:username and jade: password, etc  using the same code that is here, I have posted before but i cant use any of the code the was supplied as i need to keep it the way it is here:

DisplayUserMessage(

"Creating Employees Table")

'Create a new table

tblNew =

New ADOX.Table

'tdfNew = pdbData.CreateTableDef("GLTBPeriod")

With tblNew

' Create fields and append them to the new TableDef

' object. This must be done before appending the

' TableDef object to the TableDefs collection of the

' Northwind database.

.Name =

"Employees"

' Create fields and append them to the

' Columns collection of the new Table object.

With .Columns

.Append(

"UserName", ADOX.DataTypeEnum.adVarWChar, 7)

.Append(

"Password", ADOX.DataTypeEnum.adVarWChar, 40)

'Add the nullable attribute, else all the fields are required!!!!!

.Item(

"UserName").Attributes = ADOX.ColumnAttributesEnum.adColNullable

.Item(

"Password").Attributes = ADOX.ColumnAttributesEnum.adColNullable