未绑定的组合框：未显示

Question

我有一个未绑定的组合框，我填写表单加载。我想要的是当用户选择组合框文本时，我应该能够访问它的值。在这种情况下，选中的项目文本在选中时会消失，但我可以访问其值。以下是组合框设置。如何使组合框显示所选文本，同时我应该能够访问所选值？

ID Process
1 a
2 b
3 c

• 列数 - 2
• 列宽 - 0“，1”

• 行源类型 - 表/查询

  Private Sub Form_Load()
  
  Dim strSQL As String
  strSQL = "Select ID as F1 ,  process_name as F2 from tblProcess"
  
  Set objRecordset = New ADODB.Recordset
  objRecordset.Open strSQL, objConnection, adOpenKeyset, adLockOptimistic
  
  If Not (objRecordset.EOF And objRecordset.BOF) Then
      Set Me.cmbProcess.Recordset = objRecordset
  End If
  
  objRecordset.Close
  Set objRecordset = Nothing
  End Sub
  

选择后会出现组合框

组合框属性

Answer 1

如果跳过整个objRecordset代码块而不是在定义strSQL之后插入行，它是否正常工作：

Me.cmbProcess.RecordSource = strSQL