Creat field in access for long text in vb6

How to create the field for 1000 word

Set fd = tb.CreateField(Me.Date1.Text, dbText, 1000)

I tried this, but not working