Как проверить пуст ли массив?

If Массив(0) = "" Then ' вот эта проверка мне кажется неграмотная

 mX = Range(Cells(1, 1), Cells(N, 22)).Value

Set objConnection = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ";" & _
"Extended Properties=""Excel 12.0;HDR=Yes"";" 'HDR=Yes  первая строка используется как заголовки столбцов HDR=No - заголовков нет
 
sqlStr1 = "SELECT а2.[Номер выдачи], а2.[Номер страховки], а2.Работник"
sqlStr1 = sqlStr1 & " FROM [CRRATYLV$a2:f10000] AS а2"
rs.Open sqlStr1, objConnection, 3, 3
Worksheets("ISSUEDALL").Select
Cells(2, 8).CopyFromRecordset rs ' выгрузка рекордсета
MsgBox "Готово"

if rs.bof and rs.eof Then msgbox "Пустой"

sqlStr1 = "SELECT а2.[Номер выдачи], а2.[Номер страховки], а2.Работник"
sqlStr1 = sqlStr1 & " FROM [CRRATYLV$a2:f10000] AS а2"
rs.Open sqlStr1, objConnection, 3, 3
Cells(2, 8).CopyFromRecordset rs ' выгрузка рекордсета

sqlStr1 = "SELECT [CRRATYLV$a2:f10000].[Номер выдачи], [CRRATYLV$a2:f10000].[Номер страховки], [CRRATYLV$a2:f10000].Работник"
sqlStr1 = sqlStr1 & " FROM [CRRATYLV$a2:f10000]"]

"Select a2.f5, a2.f3 a2.f1 From [CRRATYLV$a2:f10000] as a2 Where a2.f2>10 and a2.f4<100"

dim a(1 to 3) as String
a(1)="10"
a(2)="20"
a(3)="30"
for i=1 to 3
sqlStr1 = "SELECT а2.[f1], а2.[f2], а2.f3"
sqlStr1 = sqlStr1 & " FROM [CRRATYLV$a2:f10000] AS а2"
sqlStr1 = sqlStr1 & " Where a2.f4>" & a(i)
rs.Open sqlStr1, objConnection, 3, 3
if rs.bof and ra.eof then
else
rs.movelast: rs.movefirst
if i=1 then df=2 
Cells(df, 8).CopyFromRecordset rs ' выгрузка рекордсета
df=df+rs.recordcount+1
end if
rs.close
next i

Private Declare Function GetMem4 Lib "msvbvm60" (Src() As Any, Dst As Any) As Long
 
Dim D() As Long, l As Long
 ReDim D(10)
 GetMem4 D, l
 If l Then
   ' Инициализирован
 Else
   ' Неинициализирован
 End If

Const Chunk as long = 100
 
Dim arr() as long
Dim idx as long ' текущая позиция в массиве
 
Sub Инициализация
  redim arr(0)
Sub
 
Sub Дополнение массива
  Buf_Size = Узнаем сколько у нас данных для дополнения
  if ubound(arr) < Buf_Size + idx then redim preserve arr ( UBound(arr) + Chunk * (Buf_Size \ Chunk + 1) )
  Записываем данные в массив
  idx = idx + Buf_Size
end sub
 
Sub Пример проверки заполнен ли массив
  if Ubound(arr) = 0 then Не заполнен
End Sub

Public Sub массив_заполнен()
Dim arrr()
ReDim arrr(0)
Debug.Print UBound(arrr)
arrr(0) = 1
Debug.Print UBound(arrr)
End Sub