Array

Hi, i want to use the fieldsname which i placed in an array to check for each field if it is numeric or not. But for some reason it won't accept the array fieldname to get the field and check if it is numeric or not. Anyone who can help me?
 
------------------------------------------
 Option Explicit
 
Dim A1 As Integer
Dim A2 As Integer
Dim i As Integer
 
Dim DbLetter As String 
Dim Q1 As Integer
Dim Q2 As Integer
 
Dim db As database
Dim table As table
Dim field As field
Dim field_count As Integer
Dim fieldNames() As String
 
Dim FieldNumeric As Boolean 
 
Sub Main
 
Q1 = 1 'Aantal bestanden
DbLetter = "A" 'Start letter databasename
 
For A1 = 1 To Q1
 
Set db = Client.OpenDatabase(DbLetter & " (" & A1 & ").IMD")
Set table = db.TableDef
field_count = table.count
'MsgBox field_count 'Check 
ReDim fieldNames(field_count)
For i = 1 To field_count
Set field = table.GetFieldAt(i)
fieldNames(i) = field.name
Next i
Q2 = field_count
MsgBox Q2
 
For A2 = 0 To Q2
'MsgBox fieldNames(A2) 'Check
 
Set db = Client.OpenDatabase(DbLetter & " (" & A1 & ").IMD")
Set table = db.TableDef
Set field = table.GetField(fieldNames(A2))
FieldNumeric = field.IsNumeric
 
'If FieldNumeric  = True Then
'MsgBox "Numeriek"
'End If
 
Next A2
Next A1
End Sub