Add items to LynxGrid not the same type error?

[dong]

I put the records in a database with access to LynxGrid Type mismatch error, can you see help my code wrong ?

Private Sub Form_Load()
Dim lRow As Integer

'set list columns
With listEntries
.Redraw = False
.AddColumn "ID Code", 50 '0
.AddColumn "Full Name", 150 '1
.AddColumn "Adress", 260 '2
.AddColumn "Telephone", 70 '3

.Redraw = True
.Refresh
End With

strSQL = "SELECT Tabstaff .IDCode, Tabstaff .FullName, Tabstaff .Adress, Tabstaff .Telephone FROM Tabstaff ;"

rsstaff .Open strSQL, DataCustomers, adOpenKeyset, adLockOptimistic
rsstaff .MoveFirst
listEntries.Redraw = False
listEntries.Clear
While Not rsstaff .EOF
With listEntries
     lRow = .ItemCount
     .AddItem
     .CellText(lRow, 0) = rsstaff !IDCode ' This was the type mismatch error, if this line is rem by single quotes, then the next line will error
     .CellText(lRow, 1) = rsstaff !Fullname
     .CellText(lRow, 2) = rsstaff !Adress
     .CellText(lRow, 3) = rsstaff !Telephone
End With
rsstaff .MoveNext
Wend
listEntries.Redraw = True
listEntries.Refresh
rsstaff .Close

End Sub

[Hack]

I never heard of a Lynxgrid, so I googled it. Found it is a freeware control available on Planet Source code.

I would suggest contacting the author of the grid

[dong]

LynxGrid it looks as Listview but it has nicer interface than as Listview
I contacted the author but not, the other control features not such as LynxGrid