运行sql查询时访问页崩溃

我不熟悉VBA和Access，我试图根据tsql数据库中的位字段隐藏一个按钮，当我注释执行查询的代码行时，Access表单加载良好，当我取消注释它时，它崩溃。。请帮忙！我不确定我做错了什么

Private Sub Form_Activate()
DoCmd.Maximize

Dim RecordSt As Recordset
Dim dbase As Database
Dim query As String
query = "select * from tblsetup;"
Set RecordSt = dbase.OpenRecordset(query)    'Line of code that crashes page
'If RecordSt.Fields("ValidateChecks").Value = 0 Then
    'cmdValidate.Visible = False
'Else
    'cmdValidate.Visible = True
'End If

---

End Sub

您尚未将数据库设置为任何值。如果该表是链接表，则希望dbase等于CurrentDB：

Set dbase = CurrentDB

---

把它放在“Set Recordst”语句上方，您还没有将dbase设置为任何值。如果该表是链接表，则希望dbase等于CurrentDB：

Set dbase = CurrentDB

---

把它放在“Set Recordst”语句上方，这就成功了。非常感谢。计时器用完时将标记为应答。这就成功了。非常感谢。计时器用完时将标记为应答。