пример использования ADODB.Connection

Sub CreateConnection() ‘Declare and instantiate the connection Dim cnn As ADODB.Connection Dim rs As New ADODB.Recordset Dim arr() As Variant Set cnn = New ADODB.Connection ‘Open the connection cnn.Open «Provider=Microsoft.ACE.OLEDB.12.0;» & _ «Data Source=C:\Documents and Settings\KonKram\Рабочий стол\SQLiteForExcel\ADO\BD-01.accdb;» & _ «Persist Продолжить чтение пример использования ADODB.Connection