1可以.例子:
Dim myreport As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
myreport.Load(RPTFileName)
Dim dsRhett As New DataSet()
Dim oleCon As New OleDb.OleDbConnection()
oleCon.ConnectionString = "Provider=MSDAORA; Data Source=BW3TEST; User ID=BW3; Password=BW3DATA"
Dim oleDA As New OleDb.OleDbDataAdapter("select * from " & TableName, oleCon)
oleDA.Fill(dsRhett)