What am I doing wrong?

Everytime i test this code I get this message.
"object variable or with block variable not set"
data1 has been setup with all the right access db settings.
but it is still not working.

Code:

---

Private Sub listviewUpdate()
Dim itmRecord As ListItem

With Data1.Recordset
    Do Until .EOF
        Set itmRecord = ListView1.ListItems.Add(, , .Fields("ProjName"))
        itmRecord.SubItems(1) = .Fields("FirstName")
        .MoveNext
    Loop
End With
End Sub

---

AmmerBow,

If you are calling your listviewUpdate procedure from the Form_Load event that is the problem, because the data control only initializes after the Form_Load has executed.

What I normally do is to set a boolean variable in the Form_Load event to true, and then run the listviewUpdate in Form_Activate if that variable is true, as well as set the variable back to false, so that the listviewUpdate only runs once.

This should solve your problem.

Doh!
Thank you!