SI ES EN VISUAL BASIC:
///FUNCION BUSCAR
Function SeekField(Tabla As Recordset, indice As String, campo As Variant) As Boolean
Tabla.Index = indice
Tabla.Seek "=", campo
If Not Tabla.NoMatch Then
SeekField = True
Else
SeekField = False
End If
End Function
//LLAMADA A LA FUNCION PARA BUSCAR LA FECHA
Fecha = Format(CDate(fec1.Text), "dd/mm/yyyy") //le das formato a la fecha.
If SeekField(tabla, "PrimaryKey", fecha) Then // es por q existe
//las instrucciones
