在Access VBA中，如何从表的多个列中获取不同的值作为组合框的行源？

Private Sub Form_Load()
    Dim strSQL As String
    Dim rs As Recordset
    
    ' 构建SQL查询语句
    strSQL = "SELECT DISTINCT Column1, Column2, Column3 FROM YourTable"
    
    ' 执行查询
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    ' 将查询结果设置为组合框的行源
    With Me.ComboBox1
        .RowSourceType = "Table/Query"
        .RowSource = rs.Name
        .BoundColumn = 1 ' 设置绑定列的索引，这里假设第一列是要显示的值
        .ColumnCount = 3 ' 设置显示的列数
        .ColumnWidths = "2cm;2cm;2cm" ' 设置每列的宽度
    End With
    
    ' 关闭记录集
    rs.Close
    Set rs = Nothing
End Sub