Invalid argument error with creatingdatabase in vb6

Hello,

For some reason I get an invalid argument error with attached code or attached pic.
Error line is marked with : ERROR LINE

Could someone help me out?
Regards,
Dennis

Function Create_Database()
 
Dim dbnewDB As Database
Dim tdnewtable As tabledef
Dim fld As field
Dim idx As Index
 
 
Set dbnewDB = createdatabase("c:\structure\Dennis.mdb", dblanggeneral)
Set tdnewtable = New tabledef
Set fld = tdnewtable.createfield("Title", dbtext, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("Open", dbMemo, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("High", dbMemo, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("Low", dbMemo, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("Close", dbMemo, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("Signal_1", dbMemo, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("Equity_1", dbMemo, 20)
tdnewtable.fields.append fld
Set idx = tdnewtable.createindex
With idx
.Name = "idxTitle"
.fields.append.createfield ("Title") 'ERROR LINE
 
End With
tdnewtable.indexes.append idx
tdnewtable.Name = "tblcollection"
dbnewDB.tabledefs.append tdnewtable
 
Set dbnewDB = Nothing
 
 
 
End Function

Select allOpen in new window

invalid.jpg