ник: Krusz
переписал код в таком виде и все заработало.
правдо я не совсем понял что делает каждая строчка. сможете пояснить?
и еще один момент так как не совсем все понял, можно сделать так чтобы и заголовки столбцов копировались в EXEL?
Private Sub VigXL_Click()
Dim ExcelSheet As Object
Dim wb As Workbook
Dim ws As Worksheet
Set ExcelSheet = CreateObject("Excel.application")
ExcelSheet.SheetsInNewWorkbook = 1
Set wb = ExcelSheet.Workbooks.Add
Set ws = wb.Worksheets(1)
ws.Cells(1, 1).CopyFromRecordset RST
wb.Close
ExcelSheet.Quit
End Sub