datareport问题

Question

在报表打印时，我用的是datareport和dataEvrionment 做的，连接Access 数据库时是手动连接的，但换到别的是放运行时就出现数据库的对话框，请问怎么用代码连接数据库和表呀！我是 用DATA 控件，谢谢了

Answer 1

Dim rs As ADODB.Recordset
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:\图像处理系统.mdb;Jet OLEDB:Database password=sss"
con.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.Open "病人信息表", con
set datareport.datasource=rs