不要用Environment,直接添加DataReport。在细节中用RptTextBox控件按自己的打印要求布局。将其DataField属性对应相应的字段,注意不要设置DataMember,双击DataReport,添加代码如下(运行VB,选择“工程\引用”命令,引用“Microsoft AetiveX Date 2.x Library”):
Private Sub DataReport_Initialize()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Sql As String
'连接数据库(Access)
Set cn = New ADODB.Connection
Sql = "Provider = SQLOLEDB.1;Persist Security Info = False;" & _
"User ID = sa;Password = abc;Data Source = 192.168.0.1;" & _
"Initial Catalog = dbName"
cn.Open Sql
'组合查询语句:
Sql = "SELECT * FROM TableName " & _
"where ID ='" & Form1.Text1.text & "'"
'打开查询记录集
Set rs = New ADODB.Recordset
rs.Open Sql, cn, adOpenStatic, adLockReadOnly
Set Me.DataSource = rs
End Sub