DAO可以连接到datareport吗?就是搜不到例子
lfshf 2003-09-06 12:04:27 全是用ADO的,比如下列例子,用DAO可以吗?怎么改?我试一天了,就是不成功
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
DataReport1.Show (vbModal)
End Sub