Dim sayi As Integer sayi = DCount("Id", "Tablo1") Const tableSize As Integer = sayi Dim dizi(tableSize, 3) As String