'Создание подключения к базе
    Dim cnn As New ADODB.Connection
    cnn.ConnectionString = "Provider=MSDASQL.1;" _
    & "Data Source=PROD; User ID=" + strUserID + "; Password=" + strPassword + ""
    cnn.CommandTimeout =  0 
    cnn.Open
    'Открываем набор данных
    Dim rstMain As New ADODB.Recordset
    rstMain.Open "select * from ows.opt_eskraspmain", cnn
    
    Dim arrayRows As Variant, arrayRowsRst As Variant
    
    Dim intRow As Integer, intRstOrgProduct As Integer, intOrg As Integer

    Dim intRows As Integer, intRowsRst As Integer, intItog As Integer
    
    Dim strClientName As String, strFileName As String, strFee As String, strItog As String
    
    Dim strFeeType As String, strUserFIO As String
    
    Dim intLoopRow As Integer, intLoopCol As Integer
    Dim Month1Day As Date
    
    Dim ObjWord As Variant
    Dim PathDOT As String
    
    'Создаем объект Word
    Set ObjWord = New Word.Application
    PathDOT = "C:"
    Dim Doc As Document
    'Записываем ФИО исполнителя в переменную
    strUserFIO = CStr(tbUserFIO)
    'Определяем первый рабочий день месяца
    Month1Day = CDate("01." & Month(Date) & "." & Year(Date))
    If Weekday(Month1Day) =  1  Then
        Month1Day = Month1Day +  1 
    ElseIf Weekday(Month1Day) =  7  Then
        Month1Day = Month1Day +  2 
    End If
    'Находим число записей в наборе
    rstMain.MoveFirst
    intRows =  0 
    Do While Not rstMain.EOF
        intRows = intRows +  1 
        rstMain.MoveNext
    Loop
    rstMain.MoveFirst
    'Получаем массив записей
    arrayRows = rstMain.GetRows(intRows)

      : arrayRows( 0 , 0 ) : "Ђђ’…Њ" : Variant/String : ThisDocument.btnRasp_Click

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Expected: identifier
---------------------------
ОК   Справка   
---------------------------

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Invalid use of property
---------------------------
ОК   Справка   
---------------------------

    : Value : "Ђђ’…Њ" : Variant/String : ThisDocument.btnRasp_Click

Watch :   : CStr(rstMain( 0 )) : "Ђђ’…Њ" : String : ThisDocument.btnRasp_Click