Set rs=Forms(0).Recordset
If TypeOf rs Is DAO.Recordset Then
MsgBox "DAO Recordset"
ElseIf TypeOf rs is ADODB.Recordset Then
MsgBox "ADO Recordset"
End If
End Sub 作者: leewm 时间: 2003-4-25 21:08
上述代码是在VBA的帮助文件中的例子,试过,运行不通,且在Access中,哪里去引用DAO对象。作者: 喳喳林 时间: 2003-4-26 07:26
进入代码视图.