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