🚀 go-pugleaf

Salve a tutti..sapreste risolvere questo Enigma? io sar� un Mese che ci sto
sopra e non mi riesce di muovermi...

Allora: nella form ho una listview (listView1), una text dove inserire la
marca da cercare (txtMarca), un bottone cerca (xpRicerca) e un database
Access con una tabella Marca contenti i campi idMarca (conattore, k1) Marca
(testo), note  (testo).
vi metto il codice:


'Quando clicco sul pulsante ricerca mi deve fare le seguenti operazioni:

Private Sub xpCerca_Click()

    Dim itmX As ListItem
    Dim db As Database
    Dim Marca As Recordset
    Dim StrSQL As String
    Dim Addsome As Boolean

    'svuota la lsitview
    ListView1.ListItems.Clear

    'crea una stringa per la seleione della marca
    StrSQL = "SELECT * FROM [Archivio_Marca]"
    StrSQL = StrSQL & " WHERE [Marca] LIKE '" & txtMarca & "*'"



    'apre il databse
    Set db = OpenDatabase(App.Path & "\GestioneCellulari.mdb")

    'apre il database che contiene solo le marche selezionate
    Set Marca = db.OpenRecordset(StrSQL)

    'Aggiunge il record alla list view
    Do Until Marca.EOF
        Set itmX = ListView1.ListItems.Add() ' � qua che non gunziona: mi
dice "tipo non corrispondente, errore di run time 13"
                                             ' il campo che mi deve
visualizzare � un testo (Marca) e una chiave primaria
                                             ' (idMarca) che puo essere
anche tralasciata).
                                             ' NB: Nell'Archivio ho una
tabella Marca
                                             ' con idMarca, Marca, Note

        With Marca
            itmX.Text = .Fields("idMarca")
            itmX.SubItems(1) = .Fields("Marca")
            itmX.SubItems(2) = .Fields("Note")
            Addsome = True
            RsStuInfo.MoveNext
        End With
    Loop

    If Addsome = False Then
  MsgBox "Ricerca complatata con Esito Negativo", vbExclamation,
"Attenzione"
  txtMarca.Text = ""
  txtMarca.SetFocus
    End If

End Sub