Private Sub CmdPrint_Click() '******打印功能******
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\hdhz.mdb;Persist Security Info=False"
RS.CursorLocation = adUseClient
RS.Open "SELECT * from hdtab", CN, adOpenDynamic, adLockReadOnly
Set DataReport1.DataSource = RS
'动态指定DataSource