Листинг 3

Private Sub PopulateTabs()
       '
       'Формирование полей выходной формы данными из
       ' базы данных по иденификатору сотрудника
       '
       Dim con As New ADODB.Connection, rs As New ADODB.Recordset
       Dim sSQL As String, iEmpID As Integer
       ' Открываем базу данных C:\NWind.mdb
       con.open "Provider=Microsoft.Jet.OLEDB.3.51; _
       Persist Security Info=False;Data Source=c:\Nwind.mdb"
       ' получаем идентификатор сотрудника, который
       ' определен на странице Inrto.htm
       iEmpID = GetProperty(BaseWindow.Document, "EmpID")
       ' SQL-запрос на поиск записи
       sSQL = "Select FirstName + ' ' + LastName as Name," & _
       " Address, City, Region, BirthDate, HireDate," & _
       " Title From Employees where EmployeeID = " & iEmpID
  ' Поиск и чтение записи
       rs.open sSQL, con, adOpenKeyset, adLockReadOnly
       ' Переписываем данные на форму
       txtName.Value = rs("Name")
       txtAddress.Value = rs("Address") & _
       vbCrLf & rs("city") & " " & rs("Region")
       txtDOH.Value = rs("HireDate")
       txtBirthDate.Value = rs("BirthDate")
       txtTitle.Value = rs("Title")
       rs.Close
       con.Close
  End Sub