Problema con MySql

[jecr]

hola, mira bajé este codigo de internet:
Option Explicit
Dim sql As String
Public myCon As New ADODB.Connection
Public myCmd As New ADODB.Command
Public myRS As New ADODB.Recordset
Private Sub cmdsig_Click()
If Not myRS.BOF Then myRS.MoveNext
If myRS.EOF And myRS.RecordCount > 0 Then
Beep
myRS.MoveLast
End If
Mostra_dados
End Sub
Private Sub Form_Load()
On Error GoTo Error
sql = "SELECT * FROM categoria"
myCon.Open "DSN=MySql sistema"
With myCmd
Set .ActiveConnection = myCon
.CommandType = adCmdText
.CommandText = sql
End With
With myRS
.LockType = adLockPessimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.Open myCmd
End With
myRS.MoveFirst
Mostra_dados
On Error GoTo 0
Form_Load_Exit:
Exit Sub
Error:
MsgBox Err.Number & vbCrLf & Err.Description, vbExclamation, "Erro em [Form_Load]"
End Sub
Private Sub Mostra_dados()
On Error GoTo Error
Text1.Text = myRS("clave_cat")
If IsNull(myRS("descripción")) Then
Text2.Text = ""
Else
Text2.Text = myRS("descripcion")
End If
On Error GoTo 0
Mostra_dados_Exit:
Exit Sub
Error:
MsgBox Err.Description, vbExclamation, "Erro em [Mostra_dados]"
End Sub
Private Sub cmdnuevo_Click()
Dim iConta As Integer
Dim icodigo As String
On Error GoTo Error
Text1.Text = ""
Text2.Text = ""
myRS.MoveLast
icodigo = Val(myRS("clave_cat")) + 1
myRS.AddNew
Text1.Text = CStr(icodigo)
Text1.SetFocus
On Error GoTo 0
cmdnuevo_Exit:
Exit Sub
Error:
MsgBox Err.Description, vbExclamation, "Erro em [cmdnuevo]"
End Sub
Private Sub cmdguardar_Click()
On Error GoTo Error
myRS("clave_cat") = "" & Text1.Text
myRS("descripcion") = "" & Text2.Text
myRS.Update
MsgBox "Operação realizada com sucesso !", vbInformation, "Salvar Inclusão/Alteração"
On Error GoTo 0
cmdguardar_Exit:
Exit Sub
Error:
MsgBox Err.Description, vbExclamation, "Erro em [cmdguardar]"
End Sub
este es el que me da broncas, y veces pone solo escritura y a veces no deja guardar