Private Sub Form_Load()
    Dim a As Double
    'Le pongo double porque en la definición de DateAdd:
    'DateAdd (Interval as String, Number as Double, Date)
    a = 102000 'segundos

    'Ahora a la fecha actual le sumo los 102000 segundos:
    Text1.Text = DateAdd("s", a, Now)

End Sub

dim buscar as string
buscar="cel"

Data1.Recordset.MoveFirst 'Te vas al principio de la búsqueda tuya
Data1.Recordset.FindFirst "Campo LIKE '*" & buscar & "*'"
if Data1.Recordset.NoMatch Then
    'lo que quieras
    'y haces un movelast
end if

Private Sub Form_Load()
  Dim a As Long
  a = 102000 'El tiempo para Convertir_tiempo en segundos.!
  Text1.Text = Convertir_tiempo(a)
End Sub

Public Function Convertir_tiempo(ByRef duracion As Long) As String

        Dim Tmp As Long
        Dim Horas As Long
        Dim Minutos As Long
        Dim Segundos As Long

        On Error Resume Next

        Tmp = duracion

        Horas = Int(Tmp / 3600)
        Tmp = Tmp - (Horas * 3600)

        Minutos = Int(Tmp / 60)
        Tmp = Tmp - (Minutos * 60)

        Segundos = Tmp

        Convertir_tiempo = ""
        If Horas > 0 Then Convertir_tiempo = Format(Horas, "00") & ":"
        Convertir_tiempo = Convertir_tiempo & Format(Fix(Minutos), "00") & ":"
        Convertir_tiempo = Convertir_tiempo & Format(Fix(Segundos), "00")

    End Function