help with crystal issue

[Chris]

Hi,
I am trying to print direct to printer using crystal in vs. Here is part of
my code.

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button2.Click

oconn = New SqlConnection(s connstr)

'oconn.Open()

Try

ocmd.Connection = oconn

ocmd.CommandTex t = "select user_id,user_na me from users where user_id = 1"

ocmd.CommandTyp e = CommandType.Tex t

oda.SelectComma nd = ocmd

Dim ds As New DataSet1

oda.Fill(ds, "users")

orpt.SetDataSou rce(ds.Tables(0 ))

rap.Load("C:\Do cuments and Settings\userna me\My Documents\Visua l
Studio\Projects \crystal\Window sApplication1\W indowsApplicati on1\CrystalRepo rt1.rpt")

rap.PrintToPrin ter(1, False, 0, 0)

Catch ex As Exception

MsgBox(ex.Messa ge)

Finally

oconn.Close()

oconn = Nothing

ocmd = Nothing

oda = Nothing

orpt = Nothing

rap = Nothing

End Try

End Sub

When the button is clicked the page is printed only with the column headers.
I checked my sql statement against the database and it returns 1 row. I
checked to see if the dataset is populated using

MsgBox(ds.Table s(0).Rows(0).It em(1).ToString)

The dataset has the correct data. The dataset is an .xsd file created
manually.

Any ideas?

Thanks