vb+sql2000操作时提示不能更新 数据库为只读 ？

以下是代码
Private Sub Form_Load()
Dim strsql As String
'打开工作空间
Set Workspace = CreateWorkspace("", "admin", "", dbUseJet)
'通过ODBC连接数据库
Set Database = Workspace.OpenDatabase("mydatabase", False, False, "odbc;dsn=mydatabase;uid=sa;pwd=;database=myfirstdatabase")
'构造SQL语句
strsql = "select * from 学生信息记录"
'获取执行该SQL语句后得到的记录集Recordset
Set Recordset = Database.OpenRecordset(strsql, dbOpenDynaset, dbSeeChanges)
'调用displaydata函数在相应的文本框中显示数据
displaydata
End Sub