I am running the following code and get a runtime error 3265 message at the line indicated. Really new to VB, need some help please. My sincere thanks in advance for your help and assistance.

EAF

Option Compare Database
Option Explicit
'================================================= ==================================
Sub CreateTable(strTable As String)
'*** Use current connection (cn2) for database
Dim catDB As ADOX.Catalog
Dim tbl As ADOX.Table
Dim objKey As ADOX.Key
'*** Establish catalog for table development
Set catDB = New ADOX.Catalog
catDB.ActiveConnection = cn2
Set tbl = New ADOX.Table
Set objKey = New ADOX.Key
With tbl
.Name = strTable
Set .ParentCatalog = catDB
With .Columns
'*** Determine which table to create
If strTable = "BUYER" Then
'*** Create BUYER
.Append "BUYER_ID", adVarWChar, 12

'########################
==>HERE .ITEM("BUYER_ID").Properties("Jet OLEDB:Allow Zero Length") = True
'########################

.Append "EMPL_ID", adVarWChar, 12
.ITEM("EMPL_ID").Properties("Jet OLEDB:Allow Zero Length") = True
.Append "LAST_NAME", adVarWChar, 25
.ITEM("EMPL_ID").Properties("Jet OLEDB:Allow Zero Length") = True
ElseIf strTable = "COMM" Then
'*** Create COMM
.Append "COMM_CD", adVarWChar, 8
.ITEM("COMM_CD").Properties("Jet OLEDB:Allow Zero Length") = True
.Append "COMM_CD_DESC", adVarWChar, 30
.ITEM("COMM_CD_DESC").Properties("Jet OLEDB:Allow Zero Length") = True
End If
End With
End With
'*** Add the new table to the Tables Collection of the database
tbl.Keys.Append objKey
catDB.Tables.Append tbl
Set objKey = Nothing
Set catDB = Nothing
End Sub
'================================================= ================================
'================================================= ================================