... доставать данные в recordset: Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim cmd As New ADODB.Command Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5; Data Source= c:\test\db.sdf;Persist Security Info=False" conn.Open cmd.ActiveConnection = conn cmd.CommandText = "SELECT * FROM HISTORY" Set rs = cmd.Execute ... conn.CloseЗаполнять сводную таблицу ...