如何使用Access 2010中的VBA代码填充组合框

Question

我试图在访问中使用vba代码填充组合框但不幸的是组合框没有填充，我也没有收到任何错误消息。以下是我正在使用的VBA代码

Private Sub Form_Load()
    Me.cmbox_cmp_search.Value = ""
    Me.cmbox_date_search.Value = ""

    Dim mycomp_search As String
    cmbox_cmp_search.RowSourceType = Query

    mycomp = "select distinct nre_purchase.scrip_pur from nre_purchase"  

    Me.cmbox_cmp_search.RowSource = mycomp
    Me.cmbox_cmp_search.Requery
End Sub