Too Many Fields defined. How to load a dbf file with more than 255 fields? Visual Basic 6 pro, vb6

I am using this line to open a dbf file:

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("Z:\aloha\vb\dbf\", True, False, "dBASE IV;")
Set rs = db.OpenRecordset("Select * From ITM.DBF Order By ID")

Do While Not rs.EOF
rs.Fields("SHORTNAME")

ETC....ETC....ETC...

The code works great if the database has 255 or less Fields.  How can I load a dbf file that has more than 255 fields.  

I am using VB6pro

Thanks in advanced.