i am trying to load data from the database to a dbcombo
but i am not getting it properly
i am using the following coding :
Set db = New Connection
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;" & "data source= " & App.Path & "\db1.mdb;"
Set rs = New Recordset
rs.Open " select model_no from Product_master", db, adOpenStatic, adLockReadOnly
Set DB_type.DataSource = rs
DB_type.BoundColumn = "model_no"
DB_type.DataField = "model_no"
DB_type.ListField = rs.Fields(1)
what's wrong in this code ? plz help