You could do that as shown below.

Dim Cmd As New SqlCommand
Cmd.Connection = Conn1
Cmd.CommandType = CommandType.Text
Cmd.CommandText = "SELECT * FROM dbo.Appointments"
Dim reader As SqlDataReader = Cmd.ExecuteReader()
While (reader.Read())
  Dim app As Appointment
  app = new  Appointment()
  app.HeaderText = reader.GetValue(0).ToString()
  app.StartTime = reader.GetDateTime(1)
  app.EndTime = reader.GetDateTime(2)
  calendar.Schedule.Items.Add(app);
End While

I hope that helps,
Stoyan

Once you have your contacts defined in the Calendar.Schedule.Contacts collection, you must add the contacts you would like to group by to the Calendar.Contacts collection and set Calendar.GroupType to GroupType.GroupByContacts. This will enable grouping in the current view (keep in mind that some views don't support grouping). Now associate each appointment with one or more contacts by adding a reference of these contacts to the Appointment.Contacts collection of the individual appointments.

Meppy

I'm getting duplicates in my GroupbyContacts.
It must be something I'm doing. For example if I have 2 Appointments for a Tech(contact) Jeff, it creates them under 2 seperate columns. Here is the code I'm using.

While (reader.Read())
   Dim app As Appointment
   Dim con As Contact
   con = New Contact
   con.FirstName = reader.Item("Tech").ToString
   Calendar.Contacts.Add(con)
    app = New Appointment()
   app.DescriptionText = reader.Item       ("Description").ToString
   app.HeaderText = reader.Item("Name").ToString()
   app.StartTime = reader.GetDateTime(17)
   app.EndTime = reader.GetDateTime(18)
   app.AllowChangeStart = False
   app.AllowChangeEnd = False
   app.AllowMove = False
   app.Contacts.Add(con)
   Calendar.Schedule.Items.Add(app)
End While

Ok sorry about this but this is what I have but it won't add an existing contact. Your help is appreciated.

Dim app As Appointment
Dim con As Contact
Dim strName As String

app = New Appointment()
app.DescriptionText = reader.Item("Description").ToString
app.HeaderText = reader.Item("Name").ToString()
app.StartTime = reader.GetDateTime(17)
app.EndTime = reader.GetDateTime(18)
app.AllowChangeStart = False
app.AllowChangeEnd = False
app.AllowMove = False
strName = reader.Item("Tech").ToString()
con = New Contact
con.Id = strName
con.FirstName = strName

If Calendar.Schedule.Contacts.Contains(con.Id) = False Then
Calendar.Contacts.Add(con)
app.Contacts.Add(con)
Calendar.Schedule.Items.Add(app)
Else
app.Contacts.Add(con)
Calendar.Schedule.Items.Add(app)

End If[code][/code]

I tried it but get the following error on the reference to the existin contact. Thanks for the help by the way.
[code]Error
2
Value of type 'MindFusion.Scheduling.ContactCollection' cannot be converted to 'MindFusion.Scheduling.Contact'.

[/code]

Thanks, that worked great and sorry I should have caught the [] in th previous example.
Appreciate all the help!!