Error de carga visual basic...

[mosquitoislero]

Hola, aca te mando los codigos de programación, y a continuación el error...

--------------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
MENSAJE = MsgBox("SE BORRARÁN TODOS LOS REGISTROS DE ENTRADAS", vbYesNo, "ATENCIÓN")
If MENSAJE = vbYes Then
con.Execute ("UPDATE REGISTROUSU SET BORRAR=" & Val(Text1) & " WHERE BORRAR='" & 1 & "'")
ListView1.ListItems.Clear
ListView1.Refresh
Set rs = con.OpenRecordset("SELECT * FROM REGISTROUSU WHERE BORRAR='" & 1 & "' ")
ListView1.Top = 800
ListView1.Left = 770
ListView1.Width = 7300
ListView1.Height = 4000
X = 0
While Not rs.EOF
X = X + 1
ListView1.ListItems.Add
ListView1.ListItems.Item(X).TEXT = rs!TIPOUSUARIO
ListView1.ListItems(X).SubItems(1) = rs!USUARIO
ListView1.ListItems(X).SubItems(2) = rs!HORA
ListView1.ListItems(X).SubItems(3) = rs!FECHA
rs.MoveNext
Wend
ListView1.Refresh

Else
Command2.SetFocus
End If
End Sub

Private Sub Form_Load()
Text1.Visible = False
Text1 = "0"
Set rs = con.OpenRecordset("SELECT * FROM REGISTROUSU WHERE BORRAR='" & 1 & "' ")
'While Not rs.EOF
ListView1.Top = 800
ListView1.Left = 770
ListView1.Width = 7300
ListView1.Height = 4000
X = 0
While Not rs.EOF
X = X + 1
ListView1.ListItems.Add
ListView1.ListItems.Item(X).TEXT = rs!TIPOUSUARIO
ListView1.ListItems(X).SubItems(1) = rs!USUARIO
ListView1.ListItems(X).SubItems(2) = rs!HORA
ListView1.ListItems(X).SubItems(3) = rs!FECHA
rs.MoveNext
Wend

End Sub


**********************

Línea 21: la clase MSComctlLib.ListView del control ListView1 no era una clase de control cargada.
----------------------------------------------------------------------------------------------------------------


Muchas Gracias.