Quem sabe com Retirar a mensagem "No record"(qdo ñ encontra o registro > ou igual no Banco de Dados *.mdb), após realizar uma busca com  o "Seek"
Ex: Data1.Recordset.Seek ">=", Text1.Text

Rogério, você já tentou colocar condicionamento.

Ex:

 

Data1.Recordset.Seek ">=", Text1.Text
If Data1.Recordset.NoMatch = True then msgbox("Registro não encontrado")

Seguindo o exemplo do marcio mas por codigo sem o controle data, que você podera implementar como o exemplo do marcio:

 

 mkbmatricula = Format(mkbmatricula.Text, "00.000-0")
    Tbcadastro.Index = "IndCódigo"
    Tbcadastro.Seek "=", mkbmatricula.Text

    If Tbcadastro.NoMatch = False Then
        MsgBox "Já Existe esta Matricula. Tente outra!!!"
        mkbmatricula.Text = ""
        mkbmatricula.SetFocus
    Else
              mkbmatricula.Enabled = False
    End If

Rogerio também você podera aumentar o seu filtro com uma instrução sql no seu controle data sendo a mesma consulta inserida na guia propriedades, no recordsource.

Este exemplo é por codigo, mas nada impede de implementar com um controle data.

 Case "Incluir"
           
            Dim Criterio As String
          
            Criterio = "Nome = '" & cmbnome.Text & "' and Categoria = '" & CmbCategoria & "' and Matricula = '" & cmbmatricula.Text & "' and Local = '" & txtlocalcompetição & "' and Data = #" & Format(txtdatacompetição, "mm/dd/yy") & "# "

           

TBSúmula.FindMin Criterio
            
        If TBSúmula.NoMatch = False Then
            MsgBox "Já consta na Súmula a Participação do Atleta." & Chr(13) & "Verifique se foi selecionado os campos corretos.", 48, "Aviso de Duplicidade"
            LimpaFormulário
            cmbnome.SetFocus
       Else
            TBSúmula.AddNew
            AtualizaPontos
           
         End If
                   
           

Agradeço a todos , valeu mesmo......................

Oi Pessoal,

 

eu usei a dica acima:

 

mas mesmo assim o VB 6 mostra de "lambuja" aquele famosa mensagem "No record"

 

Não existe nenhuma propriedade do controle Data para bloquear esta msg padrão??

 

Grato