请各位大哥帮忙看看哪里出了问题 啊？！

我只是想实现text与表中一个字段的连接，然后把输入内容记录到表中的字段。


代码：
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim CnStr As String, Sql As String
Dim FileName, DbIp, DbName, DbUser, DbPw

FileName = App.Path & "\'人员信息表'"
DbIp = "g:\系统2.0\人员信息表.mdb"
DbName = "人员信息表"

CnStr = "PROVIDER=microsoft.jet.oledb.4.0;persist security info =false;data source=" & FileName & ""

Sql = "select * from 总评分" 'SQL查询语句
Set rs = New ADODB.Recordset '新建一个实例
rs.Open Sql, conn, 1, adOpenDynamic, adLockOptimistic, adCmdText

rs.AddNew '增加一行记录
Set Text1.DataSource = rs
Text1.DataField = "评分"
rs("评分") = Text1.text
rs.Update '保存写入资料，如果使用只读权限，则不能使用这个方法
rs.Close



然后提示错误：错误的参数号和无效的属性赋值

到底怎么回事啊？跪求帮助，急！

rs.Open Sql, conn, adOpenDynamic, adLockOptimistic, adCmdText

rs.Open Sql, conn, adOpenDynamic, adLockOptimistic, adCmdText

这句怎么了？