大哥哥姐姐：为什么会出错？请看看好吗？

[yedapeng]

'声名部分
Dim cnn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim strName As String
Dim strAge As String
Dim strAddr As String
Dim strPhone As String

Private Sub Command1_Click(Index As Integer)

End Sub

Private Sub cmdAdd_Click(Index As Integer)
'把文本框中的内容放到变量中
strName = Str(txtname.Text)
strAge = Str(txtage.Text)
strAddr = Str(txtaddr.Text)
strPhone = Str(txtphone.Text)

If Not Rs.EOF Then '添加记录
Rs.MoveLast
Rs.AddNew
Rs!id = 3
Rs! "姓名" = strName
Rs! 年龄 = strAge
Rs! 地址 = strAddr
Rs! 电话 = strPhone
Rs.UpdateBatch
Set DataGrid1.DataSource = Rs
End If
'报错: Rs! "姓名" = strName
'缺少过程，不是变量
End Sub

Private Sub Form_Load()
'连接工作
Set cnn = New ADODB.Connection
Set Rs = New ADODB.Recordset
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yedapeng;Data Source=YEDAPENG"
cnn.Open
cnn.CursorLocation = adUseClient
Rs.LockType = adLockOptimistic
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenKeyset
Rs.Open "select * from student", cnn, adOpenDynamic, adLockBatchOptimistic

End Sub

[MarGo]

字段名最好不要用中文名称，用RS。FIELDS（INDEX）=strName或着
根据Fieldname 来给响应字段付值

[佛的光辉]

Rs!姓名 = strName

[mumutouv]

Rs! "姓名" = strName
Rs! 年龄 = strAge
Rs! 地址 = strAddr
Rs! 电话 = strPhone
很明显的错误啊

[wolfhero]

rs("姓名").Value=strName

[vv1vv]

Rs! "姓名" = strName
改为：Rs!姓名 = strName

[feiqinfeiwhw]

rs!姓名=strName

[NoReady]

他们说的都对

[jshyjyw]

rs("姓名")=strName
或者
rs("姓名").Value=strName