請問一個資料庫的問題(編號：4761)

Dim sB As String
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= C:\Documents and Settings\Administrator\桌面\db1.mdb"

cn.Open
Set rs = New ADODB.Recordset
'rs.Open "hardnews", cn, adOpenStatic, adLockOptimistic
Set rs = cn.Execute("Select * From news")
rs.AddNew
rs("Data") = Text1.text
rs.Update

我要增加一筆資料到資料庫中
物件或提供者無法執行要求的動作..
到 rs.Addnew 就中斷了
請問要怎樣才能加入一筆資料到資料庫中呢?
謝謝解答!!~