Any one tell me how to populate a list view box with this

Dim Index As Long

If (loadedcheck) Then Exit Sub

Index = 0

Do
If (Index > 0) Then
Load CheckGDW(Index)
CheckGDW(Index).Top = CheckGDW(Index).Height * Index + CheckGDW(Index).Top
End If

CheckGDW(Index).Visible = True
CheckGDW(Index).Caption = rs!CustomerID

Index = Index + 1
Call rs.MoveNext

Loop Until rs.EOF()
loadedcheck = True