Dim БазаСоединение As ADODB.Connection Dim БазаРек As ADODB.Recordset Set БазаСоединение = New ADODB.Connection БазаСоединение.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\baranova\passat_be-2000.mdb" БазаСоединение.Open