首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】
公司主营业务：成都网站建设、网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联推出河口免费做网站回馈大家。
选择 Microsoft ADO Ext. 2.x for DDL and Security
然后单击【确定】，完成引用。
完整代码如下：
Imports ADOX
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建空的access数据库文件--数据库文件.mdb，密码为123
Dim Mycat As Catalog = New Catalog()
袜链 Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")
'以下代码创建一携团个名为“实验数据表”
Dim MyTable As ADOX.Table = New ADOX.Table '定义新表
MyTable.Name = "实验数据表" '表命名
'给表“实验数据表” 创建一个字符串字段，字段名“姓名”
MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)
'给表“实验数据表” 创建一个整数字段，字段名“学号”
MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger) '追加一个数字型字段
'给字段“辩好橘学号”创建一个主键“PimaryKey_Field”
MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")
Mycat.Tables.Append(MyTable) '把所有的新字段追加到表
MyTable = Nothing
Mycat = Nothing
End Sub
End Class
CrystalReportViewer
dataset 定义数据源
.rpt 文件描述具体报表样式
再加一个调用报表的FORM，就可以实现简单的报表功能
Option Explicit
dim Report as New Cystal1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
'调用水茄握晶报表颤搭庆时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的枝嫌赋值将在后面被修改
CRViewer91.ViewReport
Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
Private Sub daywaterlevel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'创建一个内含连接信息的数据库链接对象
Dim myConnection As New SqlConnection
myConnection.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=cwfzx;server=yllsony;Connect Timeout=30 "
'定义一个报表对象
Dim myreportDoc As New ReportDocument
Dim myDBConncetionInfo As ConnectionInfo
Dim myTable As Table
'循环念吵处理Tables集合中的每一个Table对象并设置登陆信息
For Each myTable In myReportDoc.Database.Tables
myDBConncetionInfo = myTable.LogOnInfo.ConnectionInfo()
With myDBConncetionInfo
.ServerName = "yllsony "
.databaseName = "cwfzx "
.UserId = "sa "
.Password = "636490 "
End With
Next
'定义一个sqldataAdapter类帆码型的变量
Dim MyCommand As SqlDataAdapter
'创建数据集对象
Dim ds As DataSet = New dsDayWater
'创建仔轿侍一个SqlDataAdapter对象
MyCommand = New SqlDataAdapter( "select stcd,tm,z from tb_river_r ", myConnection)
'链接到数据库,提起数据,然后中断链接
MyCommand.Fill(ds, "tb_river_r ")
'载入报表
myReportDoc.Load(Application.StartupPath "\crdaywater.rpt ")
'将数据集ds传递给报表对象
myReportDoc.SetDataSource(ds)
'绑定报表查看器控件
CrtViewerWater.ReportSource = myReportDoc
End Sub