关于付款确认显示问题

老师你好，我在窗体上建了一个付款确认按钮和一个付款状态框，但是点了付款确认后付款状态框内显示不出来，不知是何原因，请指教。

 

代码如下：

Private Sub 付款确认_Click()
     Dim strSQL       As String
     Dim strBillNo    As String
     Dim strMsg       As String
 
    strBillNo = "订货合同号" & Me!订货合同号
    strMsg = "请确认此" & strBillNo & " 的合同已经付款完成吗？"
    If MsgBox(strMsg, vbExclamation + vbOKCancel, "付款确认") = vbCancel Then
         Exit Sub
    End If
   
    strSQL = " UPDATE 采购合同 SET  付款状态='已付款'" _
            & " WHERE [订货合同号]=" & SQLText(Me!订货合同号)
    Me.sfrDetail.Requery
    Form_frm采购合同.RefreshDataList
End Sub

红色框就是“付款状态”文本框，需要显示的内容是已付款。