SQl链接表出错

石三少

Private Sub Form_Load()
Dim str As String
Dim dbs As Database
str = "SELECT * FROM 用户管理表"
Set dbs = CurrentDb
Set rec = dbs.OpenRecordset(str, dbOpenDynaset)
If rec.EOF Then
coun = 0
Else
rec.MoveLast
coun = rec.RecordCount
End If
rec.Close
dbs.Close
Set rec = Nothing
Set dbs = Nothing
End Sub
用户管理表为SQL链接表
ACCESS中打开出现

如果用户管理表为ACCESS数据表就不会有这个问题，如何解决

石三少

问题解决了
其实只要把
Set rec = dbs.OpenRecordset(str, dbOpenDynaset)
改成Set rec = dbs.OpenRecordset(str, dbOpenDynaset, dbSeeChanges)就OK了