... Ниже приводится код данного класса: DBClass.cls Option Explicit Private WithEvents ConRs As ADODB.Recordset Private dbConn As ADODB.Connection Private mvarConStr As String Private mvarSQLStr As String Private Sub Class_Initialize() Set dbConn = New ADODB.Connection End Sub Private Sub Class_GetDataMember(DataMember _ As String, Data As Object) Set Data = ConRs End Sub Public ... Создадим на форме один текстовый блок Text1 и присвоим его свойству Index значение 0. ...

... Официальное зеркало Astronomy picture of the day на сервере NASA ?? ... рассылку "Астрономия сегодня" . ... На снимке, сделанном на высоте 350 километров над Австралийской пустыней, видны поднятые над грузовым отсеком "Эндевора" ультрафиолетовый телескоп "Хопкинс" (Hopkins Ultraviolet Telescope, HUT ), ультрафиолетовая камера (Ultraviolet Imaging Telescope, UIT ), и телескоп ультрафиолетового фото-поляриметрического эксперимента "Висконсин" (Wisconsin Ultraviolet Photo-Polarimeter Experiment, WUPPE ...