Need help to solve the problem in using DBList

See more:

VB6

MS-Access

Please solve my problem

I use DBList in my project but it shows nothing in the DBList at when i run the program the code is below:

'Code in view command

Private Sub cmdview_Click()

Set reccity = New ADODB.Recordset

reccity.Open "select * from city_detail where State_name='" & dc1.text & "'",Con,adOpenStatic,adLockOptimistic,adCmdText

Set dll.RowSource = reccity

dll.ListField = "City_Name"

dll.BoundColumn = "ID"

End Sub

'code in DBlist

Private Sub dll_Click()

reccity.Bookmark = dll.SelectedItem

txtid.Text = reccity.Fields(0)

dc1.Text = reccity.Fields(1)

txtcitynm.Text = reccity.Fields(2)

txtcitynm.Locked = False

End Sub

And after when i click on view button it shows the following error;

Error :  Run-Time error '91':

Object Variable or With block variable not set