LookupEdit : How to fill repository LookupEdit on Devexpress

Dim dsNomorRangka As New DataSet
        Dim daNomorRangka As SqlDataAdapter = New SqlDataAdapter("crmFollowUpSalesDelivery_lstNomorRangka", SQLConnection)

        With daNomorRangka
            .SelectCommand.CommandType = CommandType.StoredProcedure
            .SelectCommand.Parameters.Clear()
            .SelectCommand.Parameters.Add("@CabangID", SqlDbType.NVarChar, 2).Value = o_getCabangID(cboCabangNama.EditValue)
        End With

        daNomorRangka.Fill(dsNomorRangka)

        With RepositoryLookupNomorRangka
            .DataSource = dsNomorRangka.Tables(0)
            .ValueMember = "NomorRangka"
            .DisplayMember = "NomorRangka"
        End With

        RepositoryLookupNomorRangka.PopupWidth = 500
        cboNomorRangka.Edit = Me.RepositoryLookupNomorRangka