Banco de Dados MySQL

Pessoal estou me deparando com o seguinte erro no meu código

' no modulo
Public ws As Workspace
Public db As Database

Public Function Abre_Conexao()
On Error GoTo ErrorHandler

' abri o banco de dados MySQL
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("MySQL", dbOpenDynaset, False, "Driver={MySQL ODBC 3.51 Driver};Server=" & CaminhoBD & ";Database=" & NomeBanco & "; User=" & UsuarioBanco & ";Password=" & SenhaBanco & ";Option=3;")

ErrorHandler:
     If Err.Number <> 0 Then
       USMsgBox "Erro número: " & Str$(Err.Number) & vbCrLf & " Tipo do Erro: " & Err.Description, vbExclamation, "Erro"
     End If

'no botão Novo Cadastro
Dim tbTransp  as Recordset
Set tbTransp = db.OpenRecordset("SELECT * FROM tabTransportadora WHERE Codigo_Emitente Like '" & Codigo_Emitente & "*' ORDER BY Id Asc")

    tbTransp.MoveMax
    txtCodigo.Text = Right(tbTransp!Cod_Transportadora, 6)
    id = txtCodigo.Text
    tbTransp.AddNew 'ERRO NESTA LINHA

'no Botão Salvar Cadastro
tbTransp.Fields("Cod_transportadora") = txtCodigo.Text
tbTransp.Fields("Data") = txtData.Text
tbTransp.Fields("Hora") = txtHora.Text
tbTransp.Fields("Nome") = txtNome.Text
tbTransp.Fields("CNPJ") = txtCnpj.Text

tbTransp.Update

ESTA ME DANDO O SEGUINTE ERRO: Erro 3027 Can"t update.  Database or object is read-only.

Ja pesquisei e vi que esse erro refere-se a Bloqueios, mas não sei o que modificar neste código meu para não acontecer mais este erro.
Alguém sabe o que eu possa fazer no meu código. o interessante é que outras Telas do meu sistema como Cadastro de Clientes. não da este erro. e o codigo é o mesmo so troco a tabela.