Dim cmd As New SqlCommand(SQLS TR, conn)
reader = cmd.ExecuteRead er()

Dim myDataTable As New DataTable
myDataTable.Loa d(reader)

If myDataTable.Row s.Count > 0 Then

datagridview1.D ataSource = myDataTable
datagridview1.C olumns(2).Heade rText = "QUANTITY"

datagridview1.A llowUserToAddRo ws...