2 dim array

nogen der kan hjælpe?
har en 2 dim array, hvor data skal gemmes i en db
f.eks



res= Array(Empty,Empty,TableName)
    Set rsSchema = conn.OpenSchema(4,res)
    antalkoll = rsSchema.recordcount
    redim arr(antalkoll ,2)
   
    If Not rsSchema.EOF Then
        While not rsSchema.EOF
            kollnavn= rsSchema("COLUMN_NAME")
            arr(i,0) = kollnavn
            rsSchema.moveNext
            i = i + 1
        Wend
    End If

---------


    x = antalrk
    for i=0 to antalrk
    sqlStr = "INSERT INTO ["&TableName&"](..........) VALUES(...........)"

   
    next

håber nogen kan hjælpe