Hi Sonu888,
I try to test your above mentioned code.
as I don't have a database so I remove that part and simple assign the data from range and it worked.
Sub demo()
With ActiveSheet.ComboBox1
.Clear
.List = Worksheets("Sheet2").Range("A1:A5").Value
.AddItem ("demo")
End With
End Sub
Image may be NSFW.
Clik here to view.
so here I think that please check for your recordset.
make sure it contains the value.
please try to print the recordset data. so that we can know that code for recordset is correct and it contains the data too.
I did not find any issue with code for assigning data to combobox1.
Regards
Deepak
MSDN Community Support
Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to
MSDN Support, feel free to contact MSDNFSF@microsoft.com.
