ComboBox1.Text = DateTime.Now.ToShortTimeString

不是要显示系统时间啊，我是想显示数据库中设定好的时间，是数据库中要显示时间的那个字段的数据类型该怎么设置啊？

数据库中的时间字段该设置什么类型啊？  datetime

  直接赋值就可以 combox1.text=....

  要显示的格式与系统日期设定有关系。

  可以在显示的时候设定一下格式。

<%# DataBinder.Eval(Container.DataItem, "你的数据库中字段名称", "{0:HH:mm:ss}") %>

这样看来你数据库中的字段应该是日期时间型的。
dim dt as Date
dt = 你数据库中的字段
Combox1.text=dt.toshorttimestring

TO:LoveEgg(我很菜) 
我用你的方法时，dt = 你数据库中的字段 这一句怎么写啊？我怎么写都是出错，具体的格式是怎么样的啊？是要写数据库名.字段名，还是要怎么写？

“你数据库中的字段”代指的是你从数据库中读出来的日期型字段的值。

假设你的C盘下有个MDB数据库：db1.mdb,里面有个表叫Table1,里面的第一个字段是日期时间型（DateTime）的：

        Dim cn As New Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=c:\db1.mdb;user id=admin;password=")
        Dim da As New OleDb.OleDbDataAdapter("select * from table1", cn)
        Dim dt As New DataTable
        Try
            da.Fill(dt)
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try

        Dim dr As DataRow
        For Each dr In dt.Rows
            Dim theDate As Date = dr.Item(0)    '取出日期型字段的值
            ComboBox1.Items.Add(theDate.ToShortTimeString)    '只加入时间值
        Next

dim dRow as DataRow
dim dtime as Datetime
for each dRow in ds.able("表名").Rows
    dtime=dRow("日期字段名")
    ComboBox1.Items.Add(dtime.ToShortTimeString)
next