[5分]浮动窗体中的列表框显示中文名称

按客户选择之后，出现，我希望出现的是中文名字，应该如何处理呢？琢磨了好半天都没有得到解决。

代码如下：

Private Sub cobSort_AfterUpdate()
Select Case Me.cobSort
    Case "全部"
         '让usysfrmMain的子窗体的数据源为qryXsddzj
        Forms!usysfrmMain!frmChild.Form.RecordSource = "qryXsddzj"
            Me.lstSort.RowSource = ""
    Case "按机型"
          '给列表框lstSort加载行来源
        Me.lstSort.RowSource = "Select tblCode_jx.jxID, tblCode_jx.zjmc " _
                                 & "FROM tblCode_jx " _
                             & "ORDER BY tblCode_jx.jxID;"
    Case "按客户"
        Me.lstSort.RowSource = "Select tblCode_kh.khID, tblCode_kh.khmc " _
                             & "FROM tblCode_kh " _
                             & "ORDER BY tblCode_kh.khmc;"
    End Select
  '刷新lstSort控件
    Me.lstSort.Requery
End Sub

Private Sub lstSort_AfterUpdate()
Select Case Me.cobSort
    Case "按机型"
        Forms!usysfrmMain!frmChild.Form.RecordSource = "select * from qryXsddzj where 整机名称 ='" & Me.lstSort.Column(1) & "'"
'Me.lstSort.Column(1)是指第2列，第1列是lstSort.Column(0)
        Case "按客户"
        Forms!usysfrmMain!frmChild.Form.RecordSource = "select * from qryXsddzj where 客户名称='" & Me.lstSort.Column(1) & "'"
    End Select
End Sub