Visual Basic - ListView y ADO

Hola. necesito cargar un listview con un recordset y no lo consigo, me baje de la red un vbp ejemplo y funciona perfectamente, pero cuando lo copia a mi proyecto me tira un error: NO COINCIDEN LOS TIPO (err.numbre=13).
Si en lugar del ListView uso un ListBox se completa, no es un problema de bdd

Les paso el codigo
======================================
Private Sub Command1_Click()

Dim LST As ListItem
Dim cnot As ADODB.Connection
Dim rsSemaforo As ADODB.Recordset

Set cnot = New ADODB.Connection
cnot.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Sergio\global\NOT\OT.mdb;Persist Security Info=False"
cnot.Open

Set rsSemaforo = New ADODB.Recordset
rsSemaforo.Open "Select * From semaforo", cnot, adOpenDynamic, adLockOptimistic

ListView1.ListItems.Clear
While rsSemaforo.EOF = False
Set LST = ListView1.ListItems.Add(, , rsSemaforo(0))
LST.SubItems(1) = rsSemaforo(1)
LST.SubItems(2) = rsSemaforo(2)
LST.SubItems(3) = rsSemaforo(3)
LST.SubItems(4) = rsSemaforo(4)
rsSemaforo.MoveNext
Wend
cnot.Close
End Sub
===========================================

fijate que los campos no esten nulos