在24小时格式的Access中访问VB中显示ShortTime格式

Question

在Microsoft Access中，ShortTime格式显示如下图所示。

以短时间格式访问：

我尝试了几种方法来确保Access中的ShortTime将以24小时格式显示在MaskedTextBox中。例如：

  

TStart = 01:26

     

TEnd = 02:30

经过好几次，我终于可以用24小时格式显示它，编码如下：

If DBNull.Value.Equals(ds2.Tables("OTTimeTable").Rows(i).Item("TStart")) Then
    tstat_tb.Text = "  :"
Else
    tstat_tb.Text = Format(ds2.Tables("OTTimeTable").Rows(i).Item("TStart"), "HH:mm")
End If

If DBNull.Value.Equals(ds2.Tables("OTTimeTable").Rows(i).Item("TEnd")) Then
    tend_tb.Text = "  :"
Else
    tend_tb.Text = Format(ds2.Tables("OTTimeTable").Rows(i).Item("TEnd"), "HH:mm")
End If

Windows窗体24小时格式：

编码是否需要更多改进，还是有任何方法可以使其更好？