about DAO
lvpm 2000-08-22 09:18:00 Private Sub Form_Load()
Dim db As object
CommonDialog1.ShowOpen
Set db = OpenDatabase(CommonDialog1.FileName)
statusbar1.panels(1).Text = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName), Len(CommonDialog1.FileTitle))
statusbar1.panels(2).Text = CommonDialog1.FileTitle
End Sub
为什么运行时总提示 “子程序或函数未定义”指的是opendatabase方法