run time error 380

[abu taher]

"Invalid property value"
for show data in list view i write code

Private Sub Form_Load()
Dim i As Integer
Call path
SQL = "select * from material"
Set rs = New ADODB.Recordset


 i = 1
 rs.Open SQL, Adb, adOpenDynamic, adLockOptimistic
        Do While Not rs.EOF
            LVEmp.ListItems.Add i, , i
            LVEmp.ListItems(i).SubItems(1) = rs!id
            LVEmp.ListItems(i).SubItems(2) = rs!Name
            LVEmp.ListItems(i).SubItems(3) = rs!unit
            i = i + 1
            rs.MoveNext
        Loop
    rs.Close
End Sub

when I run it then show this msg. and highlight this line

LVEmp.ListItems(i).SubItems(1) = rs!id