در قسمت General فرم دو متغیر به صورت زیر تعریف کنید:

Dim rs As Recordset

Dim db As Database

حال در رویداد Load فرمتان کدهای زیر را وارد کنید:

("Set db = OpenDatabase(App.Path & "\Bank.mdb

(Set rs = db.OpenRecordset("Shop", dbOpenTable

  "قيمت اجاره" CmbSearch.AddItem

   "آدرس"  CmbSearch.AddItem

CmbSearch.ListIndex = 0

ListGenerate

خط اول db را با بانک اطلاعاتی مرتبط می کند و در خط دوم rs برابر جدول Shop در بانک اطلاعاتی Bank می شود. در خط سوم و چهارم گزینه های مذکورا را به  کامبوباکس می افزاید؛ در خط پنجم اولین گزینه ی کامبوباکس را گزینه ی پیش فرض انتخاب می کند و در آخرین خط  تابع  ListGenerate فراخوانی می شود.

تابع  ListGenerate را به این صورت تعریف می کنیم:

Private Function ListGenerate

On Error GoTo errlbl

rs.MoveLast

rs.MoveFirst

Max = rs.RecordCount

rs.MoveFirst

lstShop(1).Clear

lstShop(0).Clear

For i = 1 To Max

            If rs("Name") <> "" Then

       lstShop(0).AddItem i

("lstShop(1).AddItem rs("Name

rs.MoveNext

     End If

Next i

rs.MoveFirst

lstShop(2).Clear

For l = 1 To Max

       If rs("Family") <> "" Then

("lstShop(2).AddItem rs("Family

            rs.MoveNext

       End If

Next l

بقیه ی کد در مقاله ی ۹...