Visual Basic - listview

Hola, quisiera saber porque no funciona lo siguiente, en el listview cree tres columnas
error: run-time error ´13´ type mismatch
muchas gracias
Cristian

Private Sub Command3_Click()
Dim x As ListItem
Set x = ListView1.ListItems.Add(, , "ssssssss")

x.SubItems(1) = "rrrrrrrrr"
x.SubItems(2) = "rrrrrrrr"

End Sub

El error 13 se produce cuando no hay coincidencia en los tipos. Ese código que pones, tal y como está escrito, debe de funcionar correctamente.

Seguramene estás asignando un valor no coincidente con el declarado en la variable (p.ej. una cadena a una variable numérica). En todo caso, deberías indicar en qué línea del código se produce el error.