مشكله تهنيج فورم متصل بقاعدة بيانات

كود :
  Sub UUU()

        dtcustm.Rows.Clear()

        adapter = New OleDbDataAdapter("select ID AS [رقم الصنف],label AS [اسم الصنف],ta AS [الحركه],QTN AS [الكميه],fullname AS [اسم المستخدم],fanum AS [رقم الفاتوره],DATE AS [التاريخ],TIME AS [الوقت] from HAR_SA;", con)

        adapter.Fill(dtcustm)

        Me.dgvcust.DataSource = dtcustm

    End Sub

    Private Sub Form12_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.WindowState = FormWindowState.Maximized

        For i = 0 To dgvcust.Columns.Count - 1

            dgvcust.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable

        Next

        UUU()

        dgvcust.Columns(7).DefaultCellStyle.Format = "hh:mm tt "

        dgvcust.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells

        dgvcust.Columns(0).Width = 60

        dgvcust.Columns(1).Width = 100

    End Sub