VB代码加ACCESS问题

Private Sub Command3_Click()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, weekD As String
Dim txtBh As String
txtBh = "刘凤"
weekD = "一二三四五六日"
weekD = "星期" & Mid(weekD, Weekday(Now, vbMonday), 1)
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yygl.mdb"
rs.Open "Select * From [timing] Where [学生帐号]='" & txtBh & "'", cn
MsgBox rs(weekD)
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
上面的代码没问题了
就是用CZY换刘凤后就不可以了，怎么改呀CZY为当前操作员。