Dim rs As Recordset
Dim strSQL As String
strSQL = "select inomer, faktdate, naimenovanie, valut, cena, fakt FROM sved_ob_yslug where faktdate <= #" & Format(CDate(Me.text1.Text), "mm\/dd\/yyyy") & "#"
Set rs = data1.Database.OpenRecordset(strSQL)
Set Me.data1.Recordset = rs
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.open("C:\new\basa97.xls")
Set oSheet = oBook.Worksheets(1)
' MsgBox rs![inomer]
With oSheet
'.Range("A3").CopyFromRecordset = rs
.Range("A2") = "qq"
End With
Мне надо чтобы данные из VB, а точнее из БД, аксесовской, через прогу заливались в эксель. А вот как это сделать?

А эксель то не открывается