报什么错?试试这样
If Forms("用户管理").Opened Then
msgbox(1)
Forms("用户管理").Controls("Table1").Table.Fill("Select * From {users}", "kc", True)
End If