Que hay camaradas......
Bueno yo lo haria de este modo a ver que os parece:
Generaria un evento en el textbox cada vez que cambie su contenido:
Private Sub txt_MOSTRAR_FECHA_TextChanged(sender As System.Object, e As System.EventArgs) Handles txt_MOSTRAR_FECHA.TextChanged
Y despues dentro del evento separaria el dato que se recibe de la tabla cuando se pasa de registro, esto lo haria, declarando una matriz string llamada Datos:
Dim datos() As String
'CON ESTO SEPARAMOS LA HORA DE LA FECHA
'FUNCION SPLIT CORTA LA CADENA "REGISTRO DE LA TABLA () DS.TABLES(0)"
'EL IDENTIFICADOR QUE SEPARA LAS CADENAS SERA EL ESPACIO " "
datos = Split(REGISTRO_TABLA, " ")
Y luego, una vez tenemos en la matriz los dos valores, 0) la fecha y en el 1) la hora, lo mostraria en el textbox.
txt_MOSTRAR_FECHA.TEXT = datos(0)
Te dejo el codigo entero mas abajo.
Modifica lo que necesites en tu proyecto y ya me dices.
Espero que te haya ayudado un poco.
Un saludito camaradas.
Private Sub txt_MOSTRAR_FECHA_TextChanged(sender As System.Object, e As System.EventArgs) Handles txt_MOSTRAR_FECHA.TextChanged
Dim datos() As String
'CON ESTO SEPARAMOS LA HORA DE LA FECHA
datos = Split(REGISTRO_TABLA, " ")
'DATOS(0) CONTIENE LA FECHA
'DATOS(1) CONTIENE LA HORA
txt_MOSTRAR_FECHA.TEXT = datos(0)
End Sub