Hola davchi,
a tu primer problema, una pregunta: cuando dices que te llegan como 00:00 - 23:59 ¿has probado a convertir en fecha diurno1.Text y diurno2.Text (Format(diurno1.Text, "hh:mm"))?
Quedaría algo como:
Código vb:
Ver originalPrivate Sub DTPicker2_LostFocus()
If DTPicker2 < (Format(diurno1.Text, "hh:mm")) Or DTPicker2 > (Format(diurno1.Text, "hh:mm")) Then
HN.Visible = True
Else
HN.Visible = False
End If
End Sub
Por otro lado, siempre puedes asegurarte de que lo son con un If IsDate() Then ...
En cuanto al segundo problema, prueba así y nos cuentas:
Código vb:
Ver originalIf Format(rs!fecha_nacimiento, "dd/mm/yyyy") = "01/01/1900" Then
cnn.Execute "UPDATE Pacientes set Fecha_Nacimiento = '" & vbNullString & "' " _
& " where id_paciente = " & rs!id_paciente & " "
End If