[Resolvido]Conexão Access com Mysql não dá certo

Em relação ao tópico: http://maximoaccess.forumeiros.com/t10451-resolvidoajuda-a-conectar-front-end-feito-em-access-em-um-back-end-feito-em-mysql

Criei o projeto acima do tópico, esta tudo certo.

Mais quando eu criei um novo banco de dados em mysql e Access acontece o seguinte erro:

Código:


Private Sub cmd_Salvar_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "driver={Mysql ODBC 5.1 driver};Sever=http://localhost/;PORT=3306;" & "database=bd_finanças;User=root;Password=002;Option=3;"
rs.Open "tbl_usuario", cn, adOpenStatic, adLockOptimistic
rs.AddNew
rs("Usuario") = Me.txt_User
rs("Senha") = Me.txt_Senha
rs("Bloqueado") = Me.grp_Situacao
rs.Update

Me.txt_User = Null
Me.txt_Senha = Null
Me.grp_Situacao = Null

Set cn = Nothing
Set rs = Nothing

MsgBox ("Registro salvo com sucesso."), vbInformation, "Salvo com Sucesso"

End Sub



Dim cn As New ADODB.Connection

Erro de compilação:
O tipo definido pelo usuário não definido.

Sendo que eu fiz a mesma coisas com o tópico sitado mais mesmo assim esta acontecendo esse erro.

Patsoft boa - Tarde voce esta a cometer o mesmo erro de antes Sever=http://localhost/o mysql tem o seu IP proprio local que é 127.0.0.1, tenta usar o codigo abaixo depois dá o retorno.

Private Sub cmd_Salvar_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Driver={MySQL ODBC 5.1 Driver};Server=127.0.0.1;PORT=3306;" & "database=bd_finanças;UID=root;Password=002;Option=3;"
rs.Open "tbl_usuario", cn, adOpenStatic, adLockOptimistic
rs.AddNew
rs("Usuario") = Me.txt_User
rs("Senha") = Me.txt_Senha
rs("Bloqueado") = Me.grp_Situacao
rs.Update

Me.txt_User = Null
Me.txt_Senha = Null
Me.grp_Situacao = Null

Set cn = Nothing
Set rs = Nothing



MsgBox ("Registro salvo com sucesso."), vbInformation, "Salvo com Sucesso"
End Sub

Mesmo eu colocando o ip próprio da MySQL continua o mesmo erro citado acima.

Tenta usar todo codigo que postei essa tabela tem chave primaria

Veja se tem algum erro em meu código.

PatSoft agora não posso testar o teu exemplo estou a escrever do pc do serviço não tenho mysql instalado aqui, notei que o campo chave no codigo está a definir o campo como nulo Me.txt_id = Nullo campo como é Auto incremento não precisa definir.

PatSoft testei o teu exemplo o erro não estava no codigo mais falto voce fazer a referencia Microsoft Activex Data Objects 2.1 Library

Ok, valew Avelino muito obrigado.