vb6 connect to mysql

[melvin tee]

my program can connect, but cannot edit database...how come??
the program is work well with ms access..
well, this is the code~

Public Function iOpenDatabase(IsReadOnly As Boolean) As Database
Dim dbs As Database
On Error GoTo errdet

Set dbs = OpenDatabase(SERVER, False, IsReadOnly, "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=SERVER; PORT=3306; DATABASE=sims; Uid=root;Pwd=ablesoft; OPTION=3")
Set iOpenDatabase = dbs
Exit Function

errdet:
MsgBox Err.Description, vbInformation, MsgTitle
End
End Function