Guardando bene il codice questa parte :
codice:
If m_rsAlcolici.RecordCount = 0 Then
    MsgBox("Non è stato trovato nessun cocktail.Riprova cambiando gli ingreddienti", MsgBoxStyle.Exclamation)
End If
devi portarla fuori le due If di controllo

codice:
        m_cnConnessioneADO.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        m_cnConnessioneADO.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and Settings\Mirco Web Master\Documenti\Coktail.mdb")

        NomeCok.Text = ""
        DescCok.Text = ""

        'controllo pulsanti'

        If CheckBox1.Checked = True And RadioButton1.Checked = True Then

            Dim sql As String
            sql = "SELECT * FROM Alcolici WHERE (Ingredienti LIKE '%gin%') and(Ingredienti LIKE '%dolce%')"
            m_rsAlcolici.Open(sql, m_cnConnessioneADO, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
            ' A questo punto hai il record
            ' ma (prima) lo chiudevi subito
            ' Questa istruzione, poi, la facevi sempre prima
            ' della Open
            If m_rsAlcolici.RecordCount > 0 Then
                NomeCok.Text = m_rsAlcolici.Fields("Nome").Value
                DescCok.Text = m_rsAlcolici.Fields("Descrizione").Value
           
            End If
        End If
        If CheckBox1.Checked = True And RadioButton1.Checked = True And RadioButton3.Checked = True Then
            Dim sql As String
            sql = "SELECT * FROM Alcolici WHERE (Ingredienti LIKE '%gin%') and (Ingredienti LIKE '%dolce%')and (Ingredienti LIKE '%fragola%')"
            m_rsAlcolici.Open(sql, m_cnConnessioneADO, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
            ' A questo punto hai il record
            ' ma (prima) lo chiudevi subito
            ' Questa istruzione, poi, la facevi sempre prima
            ' della Open
            If m_rsAlcolici.RecordCount > 0 Then
                NomeCok.Text = m_rsAlcolici.Fields("Nome").Value
                DescCok.Text = m_rsAlcolici.Fields("Descrizione").Value
            End If
        End If
        If m_rsAlcolici.RecordCount = 0 Then
            MsgBox("Non è stato trovato nessun cocktail.Riprova cambiando gli ingreddienti", MsgBoxStyle.Exclamation)
            ResetStatoCheck() 
        End If
        If Not m_rsAlcolici.ActiveConnection Is Nothing Then
            m_rsAlcolici.Close()
        End If
        m_cnConnessioneADO.Close()
Ciao,