КАк сделать вывод кол-ва записей результатов по какому-либо запросу в текстовое поле из сетки DBGrid?

Здравствуйте!!! КАк сделать вывод кол-ва записей результатов по какому-либо запросу в текстовое поле из сетки DBGrid? В Flexgrid это можно так:
Text1.Text = MSFlexGrid1.Rows - 1
А тут ничего подобного найти в свойствах данной сетки не смог.
И еще, хотелось бы сохранять результаты запроса в txt-файл, в flexgrid делал так:
Dim row, col As Long
Dim i, j As Long
Dim buf, FileName As String
row = frmFIre.MSFlexGrid1.Rows - 1
col = frmFIre.MSFlexGrid1.Cols - 1020#
Open 'ind.doc' For Output As #1
Write #1, row, 'êîë-âî' 'Write#1,row,col
For i = 1 To row
buf = buf & frmFIre.MSFlexGrid1.TextMatrix(i, 0) & Chr(9)
For j = 3 To col - 115 'âû÷èò& aring;ì 115 èç îáùåã&i circ; êîë-âà ñîëáö&icir c;â, ïîëó÷. â ôàéë ïåðâ êîëîí&ecir c;è...
buf = buf & frmFIre.MSFlexGrid1.TextMatrix(i, j) & Chr(9)
Next
buf = buf & frmFIre.MSFlexGrid1.TextMatrix(i, 0)
Print #1, buf
buf = ''
Next
А подобных свойств в DBGrid не нашел, помогите, пожалуйста!!!

0