Hi There,

I need your help.

I can't seem to be able to find out what I am doing wrong. I am attempting to load adodb recordset into a listview.

But when the code is ran, I get the error: "Run Time Error: 94 (invalid use of null)"

Any help with this is kindly and greatly appreciated.

Cheers,

Jay

'==============================================================
Private Sub test101()
'==============================================================
connection
mySQL = "SELECT * FROM tbl_imts WHERE [File Number] LIKE '%99%'"

adUseClient = 3
rs.CursorLocation = adUseClient
rs.Open mySQL, cn

For i = 0 To rs.Fields.Count - 1
Me.lbx1.ColumnHeaders.Add , , rs.Fields(i).Name, 75
Next i

Do While rs.EOF = False
For n = 1 To rs.RecordCount

lbx1.ListItems.Add , , rs(0)

x = lbx1.ListItems.Count
lbx1.ListItems.Item(x).SubItems(1) = rs(1)
lbx1.ListItems.Item(x).SubItems(2) = rs(2)
lbx1.ListItems.Item(x).SubItems(3) = rs(3)
lbx1.ListItems.Item(x).SubItems(4) = rs(4)
lbx1.ListItems.Item(x).SubItems(5) = rs(5)
lbx1.ListItems.Item(x).SubItems(6) = rs(6)
lbx1.ListItems.Item(x).SubItems(7) = rs(7)
lbx1.ListItems.Item(x).SubItems(8) = rs(8)
lbx1.ListItems.Item(x).SubItems(9) = rs(9)
lbx1.ListItems.Item(x).SubItems(10) = rs(10)
lbx1.ListItems.Item(x).SubItems(11) = rs(11)
lbx1.ListItems.Item(x).SubItems(12) = rs(12)
lbx1.ListItems.Item(x).SubItems(13) = rs(13)
lbx1.ListItems.Item(x).SubItems(14) = rs(14)
lbx1.ListItems.Item(x).SubItems(15) = rs(15)
rs.movenext
Next n
Loop




    

End Sub