用VB.NET访问ACCESS的问题

[zhxbkofkyo]

各位大佬，本人对这个东西完全不懂，看了别人的代码，尝试着自己写写，好多错误，希望大家帮忙看看。
Imports dao
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = "D:\d.mdb"
Dim Dbff As QueryDef
Dim RsFNFN As Parameter
Dim dbengine As New DBEngine
Dim G_db As Database
Dim RsS As Recordset
G_db = dbengine.OpenDatabase(str, False, False)
Dbff = G_db.CreateQueryDef("", "parameters RsFN TEXT;" & "select * from P安全阀 where [文件名]=RsFN")
RsFNFN = Dbff.Parameters!RsFN
RsS = G_db.OpenRecordset("select * from P安全阀 ")
RsS!文件名 = "FGFGDGDFGDGFDG" ‘这行显示’属性Field为readonly
End Sub
End Class
RsS!文件名 = "FGFGDGDFGDGFDG" ‘这行显示’属性Field为readonly，该怎么改才能在“”文件名“这个字段下增加记录呢？
” Dbff = G_db.CreateQueryDef("", "parameters RsFN TEXT;" & "select * from P安全阀 where [文件名]=RsFN"),,,,,,,这句啥意思，是不是要增加啥语句，貌似没地方对RSFN赋值么？