Time format in DataGrid

Private Sub FillDGrid()
Dim f As Integer
Dim sSQL As String
   sSQL = "SELECT grName AS [Group] , grHours AS [Length] ,grTimeMon AS Mon, grTimeTue AS Tue, grTimeWed AS Wed, "
   sSQL = sSQL & " grTimeThu AS Thu, grTimeFri AS Fri, grTimeSat AS Sat, grTimeSun AS Sun "
   sSQL = sSQL & " FROM tblGroup ORDER BY grName"
   ShowData (sSQL)
   dgGroup.Columns(0).Width = 1200
   For f = 1 To 8
      dgGroup.Columns(f).Width = 800
      dgGroup.Columns(f).NumberFormat = "h:mm"
   Next f
   dgGroup.Columns(1).NumberFormat = "hh:mm"
End Sub
 
Private Sub ShowData(ByVal sSQL As String)
   Set conn = New ADODB.Connection
   conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=" & App.Path & "\Student.mdb;Persist Security Info=False"
   conn.Open
   Set RecSet = New ADODB.Recordset
   RecSet.CursorLocation = adUseClient
   RecSet.Open sSQL, cn, adOpenKeyset, adLockPessimistic, adCmdText
   Set dgGroup.DataSource = RecSet
   dgGroup.Refresh
End Sub