Error On RowSource Property Of a dbcombo

[vtops]

Dim fill_items As New ADODB.Recordset
Dim cmd_fill_items As New ADODB.Command
Dim i As Integer

cmd_fill_items.CommandText = "select item_code from stores"
cmd_fill_items.ActiveConnection = form_login.main_con
Set fill_items = cmd_fill_items.Execute

With text_item
.RowSource = fill_items
.ListField = "item_code"
.BoundColumn = "item_code"

(The text_item is a dbcombo object)

In the Command:
.Rowsource=fill_items
I have an error Type Missmatch

How can i bind the dbcombo text_item with the recorset fill_items

Could you help me please?
Best Regards

 

[Golom]

fill_items" is an object (specifically a recordset). You need

Set .Rowsource=fill_items

 

[vtops]

Dear Golom

I Tried it to write it as you told me and i have another error message:
Object Variable Or With Block Variable Not Set

Any Ideas?

Thanks