dsoDimension problemer

Hej experts
jeg har et mega problem, som jeg skal have løst asap
, der er flere points til den der kan hjælpe med at løse det.

jeg har en tabel hvor i der skal gemmes data'er, men problemet er at alle data'er undtagen en bliver gemt,

har en kolonne der hedder [TEXT] hvor i der skal sættes "fri tekst" ind, men dette sker ikke....

INSERT INTO [Actual0203_Base_1 Fact]
                      (Bruger, TID, P, [myTime], konto, valuta, Opgave, Entitet, party, A, Product, Spec, Real, [TEXT])
VALUES    ('SEB', '01-05-2004 13:54:47', '1', '03-10-2020', 'p500', 'DKK', 'BASE', 'EXT', '5', 'Research', 'Bones', 'None', '150000', 'tester')
der er så vidt jeg ved intet galt med sql sætningen

her er lige en lille stump af koden hvor den fejler
Microsoft VBScript runtime error: Object required: 'dsoDimension'

dsoDImension er installeret og sat
    Set dsoDatabase = Server.CreateObject("DSO.MDStore")


sqlStr = "SELECT [Value] FROM table WHERE(LEFT([Value],1)='M')OR (LEFT([Value],1)='D')OR ([Value] = 'F')"
    Set rs = conn.Execute(sqlStr)

    While not rs.EOF
        dimension = split(rs("Value"), "@@")(1)
        For i=0 To Ubound(arr)
            If strComp(dimension,arr(i,0)) = 0 Then
                arr(i,1) = "*"
                Exit For
            End If
        Next
        rs.MoveNext
        'ss
    Wend

    'Insert the defaultMember for the dimensions not used.
    For i=0 To Ubound(arr)
        If     VarType(arr(i,1)) = 0 Then
            Set dsoDimension = dsoDatabase.Dimensions(arr(i,0))
            arr(i,1) = Replace(split(dsoDimension.DefaultMember, "[")(2), "]", "", 1, -1, vbTextCompare)
        End If
    Next