Hi all, anyone who can do this please help its been driving me crazy for ages

I want to be able to define the width of the column
ie column(1).width = 100 and so on i know its not the right syntax thats what i cant do....

this is my code i wana do it on

Dim dtePicker As Date
dteOrgDate = Me.MonthCalendar1.SelectionEnd
Dim intDay As Integer = dteOrgDate.Day
Dim intMth As Integer = dteOrgDate.Month
Dim intYr As Integer = dteOrgDate.Year
dteChaseDate = intMth & "/" & intDay & "/" & intYr

Dim data_adapter1, data_adapter2 As SqlDataAdapter
Dim strSql1 As String = "SELECT AppointmentTime as Time, CustomerName as Task FROM Appointments WHERE AppointmentDate = '" & dteChaseDate & "' AND AdvisorId = " & IdList(Me.cboEmployee.SelectedIndex) & " ORDER BY AppointmentTime"

data_adapter1 = New SqlDataAdapter(strSql1, MyConnection) ' Create the SqlDataAdapter.
data_adapter1.TableMappings.Add("Table", "MyCalendar")
m_DataSet1 = New DataSet ' Fill the DataSet.
data_adapter1.Fill(m_DataSet1)

DataGrid1.DataSource = m_DataSet1.Tables("MyCalendar") ' Bind the DataGrid control to the Contacts DataTable.
DataGrid1.ReadOnly = True


thanks all