Problemer med at tilføje data til en "column"

Må vi se lidt kode ?

tja....

jeg anvender MyODBC 3.51-9 til oprette af kontakt til mysql. Jeg programmre i Visual Basic 6.0

- Her er mit databasemodul hvor jeg opretter tabellen

Private Sub OpretTabeller()
'create table Users
Database.Execute "Create Table If Not Exists Users(id int not null AUTO_INCREMENT primary key, user varchar(20), password varchar(16), administrator char(1))"
end sub

- åbning af databasen

    Database.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                          & "SERVER=localhost;" _
                          & "DATABASE=SportOffice;" _
                          & "UID=root;PWD=jamosat"
    Database.Open
   
    Set Record = New ADODB.Recordset
    Record.CursorLocation = adUseClient

    'Opens the Record
    Record.Open "select * from " & RecordString & " order by Efternavn", Database, adOpenDynamic, adLockOptimistic

- Oprettelse at ny

'Insert new record
  Record.AddNew

- Gem af data

  Record.Fields(ReqRecord).Value = Data
  Record.Update

Forresten min fejlmeddelse er som følger

run-time error '-2147217887 (80040e21)':
Mutiple-step operation generated errors. Check each status value

Det er en fejl som er i driveren og brug af recordsetet .AddNew funktion. Fejlen gør at recordsetet tror max længden for kolonnen er længden på den længste streng i tabllen som er på 10 karakter og ikke den angivne max længde, 20 karakter. Det kan løses vad at lave en insert into SQL sætning istedet for .AddNew metoden:

Database.Execute "insert into " & RecordString & " (" & ReqRecord & ") values ('" & Data & "')"

det gav da en løsning på det problem...men det åbnede bare nogle andre....men det er jo hvad der sker når der er fejl i driverne....:-D

Tak for hjælpen

Her er et svar så ;)