ник: АлаяЗаря
о =) разобралсо =) теперь моя душенька спокойна =) можно ложиться спать =) еще раз спасибо ! вы очень помогли! ну и вопрос на последок, может я и неправильно разобралсо =)
я печатаю так
xlsheet.Range("A2").CopyFromRecordset rst
вот, а наименование полей не печатаются... как сделать хорошо? =)
а все разобрался =)
Dim n As Integer
For n = 0 To rst.Fields.Count - 1
xlsheet.Cells(1, n + 1).Value = rst.Fields(n).Name
Next