VCharRset

Dim r As Recordset
Dim r2 As Recordset
Dim d As Database
Private Sub Command1_Click()
Do While r.EOF <> True
Combo1.AddItem (r!ID) & " " & "-" & " " & (r!parentId)
pg.Value = pg.Value + 1
If pg.Value >= r2(0) Then
Label3.Caption = "Done"
Combo1.SetFocus
End If
r.MoveNext
Loop
End Sub

Private Sub Form_Load()
Dim str As Integer
Set d = OpenDatabase(App.Path & "\srccode.mdb")
Set r = d.OpenRecordset("codeitems")
Set r2 = d.OpenRecordset("select count(*) from [codeitems]")
Label2.Caption = r2(0)
pg.Max = r2(0)
End Sub