Visual Basic - If con horas

Necesito hacer una compracion de horas, por ejemplo tengo un campo en una base de datos de tipo hora y esta lleno con 10:34:00 AM, ahora necesito comparar este campo con una variable y en caso de coincidr me de llene otro text box con otro dato X, esto es lo que he intentao a ver si me puede ayudar

Private db As Database
Private rs As Recordset
Private Sub ButtonOffice1_Click()
With rs
.FindFirst "id_empleado = '" & Text2.Text & "'"
Text1 = .Fields("id_empleado")
Text3 = .Fields("hora_reloj")
Text4 = .Fields("tipo_registro")
If Text3 = Format(fecha1, "hh:mm:ss tt") Then
Text5 = "e"
End If

End With
End Sub

Private Sub Form_Load()
Const sPathBase As String = "P:\TABLAS\Backorder.MDB"
Set db = OpenDatabase("C:\asistencia.mdb", False, False, ";PWD=pass")
Set rs = db.OpenRecordset("SELECT * FROM Reloj", dbOpenDynaset)
fecha1 = #10:34:00 AM#
Text6 = fecha1
End Sub

Hola!!

Lo que puedes hacer es esto:

Primero verificar que lo que esta comparando sea el mismo formato para asi puedas hacer la comparacion correctamiente.

Sino estas seguro de lo que recibes de la BD y la variable que quieres comparar dale formato de esta manera a los dos:

h1 = Format(campo, "hh:mm:ss AMPM")
h2 = Format(variable, "hh:mm:ss AMPM")

Espero te ayude.

Saludos!!