addnew的问题

请老师们看看这段代码中，我想把ADO操作中的表中需要更改的字段用变量代替，可以吗？

Private Sub Text术后诊断_NotInList(NewData As String, Response As Integer)
Dim ctl As Control
Dim b科别 As Byte, s科别 As String
b科别 = Me!Text科别
s科别 = DLookup("科室名称", "科室分类", "id=" & b科别)
Set ctl = Me.Text术后诊断
If MsgBox("您所输入的诊断名称并不在数据库中，确认添加 " & NewData & " 术后诊断名称吗？", vbQuestion + vbOKCancel + vbDefaultButton2, "提示") = vbOK Then
 Response = acDataErrAdded
 Dim rs As New ADODB.Recordset
 rs.Open "术后诊断名称表", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 rs.AddNew
 rs!术后诊断名称 = NewData
 rs!门诊 = False
 rs!s科别 = True‘  就是这里，因为表中有几个不同科室的名称命名的字段，字段类型是逻辑类型，我想在这里把科别用变量来代替，但是总是提示找不到S科别这个字段，好像是在这个语句中变量不是优先识别的。

                                                我尝试着把这段代码写成rs! & S科别 &=true,也不行，是不是这里只能填写表中的实际存在的字段名称啊？
 rs!操作人员 = b登录名
 
 rs.Update
 rs.Close
 Set rs = Nothing
 Else
 Me.Text术后诊断.Undo
 End If
End Sub