Allora è la prima volta che uso i database in vb 6ho i seguenti 2 problemucci.

Ho creato il form per l'inserimento dei dati in 1 database e funziona correttamente solo che vorrei però pilotare l'input nel senso che il codice fiscale di 1 persona non dovrebbe essere accettato se non è un alfanumerico di 16 cifre oppure la partita IVA se non sono 11 cifre, avevo provato con 1 text mask ma nel momento de davo recordset.update mi andava in errore mentre senza mask funge correttamente.

Altro problema ho fatto 1 altro form per la ricerca di 1 record ma con il seguente codice mi da errore sull'impostazione dell'index in base all'option button e poi sull'istruzione nomatch che addirittura vb non mi mette tra quelle consigliate in inserimento.

Private Sub cmdFind_Click()
If optCF.Value = True Then
CF.dataCF.Recordset.Index = "CodCF"
CF.dataCF.Recordset.Seek "=", txtFind.Text
End If
If optDescr.Value = True Then
CF.dataCF.Recordset.Index = "Descrizione"
CF.dataCF.Recordset.Seek "=", txtFind.Text
End If
If optCodFisc.Value = True Then
CF.dataCF.Recordset.Index = "Codice fiscale"
CF.dataCF.Recordset.Seek "=", txtFind.Text
End If
If optPIva.Value = True Then
CF.dataCF.Recordset.Index = "Partita IVA"
CF.dataCF.Recordset.Seek "=", txtFind.Text
End If
If optNTel.Value = True Then
CF.dataCF.Recordset.Index = "Numero di Telefono"
CF.dataCF.Recordset.Seek "=", txtFind.Text
End If
If CF.dataCF.Recordset.NoMatch Then MsgBox "Cliente/Fornitore non trovato", vbExclamation, "Non trovato"
End If
End Sub


un altra domanda come funziona nel caso dopo aver trovato 1 record si volglia cercare eventuali duplicati ovviamente se la ricerca non è nel campo chiave?

ho usato 1 data grid control sul form CF e un ado data control sempre su CF.