sto cercando di visualizzare un recordset in una list view pero ho dificolta, mi da un errore .....

" nessun valore specificato per alcuni parametri necessari "

vi presento il codice :
codice:
Private Sub Form_Load()
    Me.MousePointer = 11
Dim strConn As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
strConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ordini.mdb"
cn.Open strConn
rs.Open "SELECT Dipendente,Dataordine,NumRicambio,Descrizionee,Quantità,Cliente,NumeroTelefonicoDestinatario,DataSpedizione,Metodospediz,Spesetrasporto,PagamentoAnticipato,Acconto,OrdineBanco,OrdineOfficina FROM Ordini WHERE codice", cn, 3, 3     If rs.EOF = False Then
        Dim tLi As ListItem
        Do While Not rs.EOF
        Set tLi = Lvw1.ListItems.Add
        tLi.Text = rs("codice")
                    If IsNull(rs("Dipendente")) = False Then
                tLi.SubItems(1) = rs("Dipendente")
            End If
            If IsNull(rs("Dataordine")) = False Then
                tLi.SubItems(2) = rs("Dataordine")
            End If
            If IsNull(rs("NumRicambio")) = False Then
                tLi.SubItems(3) = rs("NumRicambio")
            End If
                        If IsNull(rs("Descrizionee")) = False Then
                tLi.SubItems(4) = rs("Descrizionee")
            End If
               If IsNull(rs("Quantità")) = False Then
                tLi.SubItems(5) = rs("Quantità")
            End If
            If IsNull(rs("Cliente")) = False Then
                tLi.SubItems(6) = rs("Cliente")
            End If
            If IsNull(rs("NumeroTelefonicoDestinatario")) = False Then
                tLi.SubItems(7) = rs("NumeroTelefonicoDestinatario")
            End If
            If IsNull(rs("DataSpedizione")) = False Then
                tLi.SubItems(8) = rs("DataSpedizione")
            End If
            If IsNull(rs("Metodospediz")) = False Then
                tLi.SubItems(9) = rs("Metodospediz")
            End If
            If IsNull(rs("Spesetrasporto")) = False Then
                tLi.SubItems(10) = rs("Spesetrasporto")
            End If
             If IsNull(rs("PagamentoAnticipato")) = False Then
                tLi.SubItems(11) = rs("PagamentoAnticipato")
            End If
            If IsNull(rs("Acconto")) = False Then
                tLi.SubItems(12) = rs("Acconto")
            End If
            If IsNull(rs("OrdineBanco")) = False Then
                tLi.SubItems(13) = rs("OrdineBanco")
            End If
            If IsNull(rs("OrdineOfficina ")) = False Then
                tLi.SubItems(14) = rs("OrdineOfficina ")
            End If
            
            
    rs.MoveNext
    Loop
        
    rs.Close
    Set rs = Nothing
    Me.MousePointer = 4
    If Lvw1.ListItems.Count > 0 Then
        Lvw1.SortKey = 0
        Lvw1.Sorted = True
        Lvw1.ListItems.Item(1).Selected = False
    End If
    Dataordine = ""

    End If
End Sub