Visual Basic 6 - database e ricerca

Ciao a tutti !

sto impazzendo...

inserito il nome barca da tastiera in una text devo verificare sul database se la barca è gia nella lista. In tal caso procedere alla stampa senza salvarla, in caso contrario salvare il nome barca nella lista e mandarlo in stampa.

Public Sub YACHT()
Dim trova As String

        
    stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    stringa = stringa & App.Path & "\NOMI YACHT.mdb"

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    cn.Open stringa
    rs.Open "Tabella1", cn, 3, 3
    
    cn.Execute "select * FROM Tabella1"
    
    trova = rs("nome barca")
    
    If rs.EOF Then    ' SE DATABASE VUOTO CARICA DIRETTAMENTE
                 rs.AddNew
                 rs("nome barca") = Text1.Text
                 rs.Update
    End If
    
    
    While rs.EOF = False
    
    If trova = Text1.Text Then
       
        MsgBox "YACHT CLIENTE GIA IN LISTA", , "HELP DESK"
       

    Else
                 rs.AddNew
                 rs("nome barca") = Text1.Text
                 rs.Update
                 
    
       rs.MoveNext
    End If
    Wend
    
     
   
                        Set cn = Nothing
                        Set rs = Nothing
   
          
                     
End Sub

... e invece cosa succede? Errori? Malfunzionamenti?

Spiega ...