ecco il codice:

codice:
Case 6
        
             cerca = InputBox("Inserisci il Cognome da ricercare:")
                     rsql = rsql & "SELECT * FROM tblRubrica" & vbCrLf
                     rsql = rsql & "WHERE Cognome LIKE '" & cerca & "'" & vbCrLf
                     Set rs = cn.Execute(rsql)
                         
                         If rs.EOF Then
                            MsgBox "Nessun Nominativo trovato!", vbOKOnly
                            
                            Else
                                While Not (rs.EOF)
                                      
                                      With TextBox
                                           .Item(0).Text = rs("Cognome")
                                           .Item(1).Text = rs("Nome")
                                           .Item(2).Text = rs("Azienda")
                                           .Item(3).Text = rs("Occupazione")
                                           .Item(4).Text = rs("Indirizzo")
                                           .Item(5).Text = rs("Citta")
                                           .Item(6).Text = rs("CAP")
                                           .Item(7).Text = rs("prov")
                                           .Item(8).Text = rs("Email")
                                           .Item(9).Text = rs("Web")
                                           .Item(10).Text = rs("TelUfficio")
                                           .Item(11).Text = rs("TelCasa")
                                           .Item(12).Text = rs("TelCellulare")
                                           .Item(13).Text = rs("TelFax")
                                           .Item(14).Text = rs("tNote")
                                      End With
                                            
                                            Toolbar1.Buttons.Item(3).Enabled = True
                                            Toolbar1.Buttons.Item(4).Enabled = True
                                      rs.MoveNext
                                Wend
                         End If
Il problema è che non posso eseguirla due volte di seguito.

La prima volta tutto ok, la seconda invece mi da un errore di sintassi