Dim adp As New OleDbDataAdapter '' declare adapteradp.SelectCommand = com '' select command for adpapter to work onDim ds As New DataSet '' delcare datasetadp.Fill(ds, "Crystal") Dim rpt As New CrystalReport1rpt1.SetDataSource(ds)