为什么老提示错误

xito762000

Option Compare Database

Private Dbm As Database
Private TblA As Recordset
Private Chl As String

Private Sub Form_Load()
   [B] 'DAO3.6 object libary 引用已建立[/B]   
    Set Dbm = CurrentDb
   '[B]调试的时候，Dbm总是为Nothing???[/B]

    [B]'为什么下面一句执行，老是提示类型不匹配？？？？[/B]
    [U]Set TblA = Dbm.OpenRecordset("st_base", 2)[/U]
   
    Form.Caption = "EX-6-3-2范例"
   
    txt01 = 0
    Chl = Chr(10) + Chr(13)
   
End Sub[em06][em06][em06][em06][em06][em06]

[此贴子已经被作者于2003-1-22 8:12:31编辑过]

zhengjialon

没错呀？一切正常。

cattjiu

Private Sub Form_Load()
Private Dbm As Database
Private TblA As Recordset
Private Chl As String

[此贴子已经被cattjiu于2003-1-22 8:19:59编辑过]

xito762000

按Cattjiu版主，提示"编译错，Sub或Function的属性无效"，就将Private改为Dim,还是到
Set TblA = Dbm.OpenRecordset("st_base", 2)时，提示类型不匹配？？？？
（另外我将定义变量写在通用中，是因为其他控件还要用）
帮帮我，谢谢！

yorkjun

你看一下是不是同时还引用了ADO，如果是的话，取消ADO引用，并把DAO 3.6的引用优先级提前（在引用对话框边上有上下箭头）。我也碰到过，希望对你有帮助。

xito762000

这是我做程序的具体情况（附件）：
[upload=doc]http://www.office-cn.net/vvb/uploadimages/200312217352893461.doc[/img]