Estou tentand uma conexão do formulário com o Banco do Mysql.
O codigo é o seguinte:
- Código:
Option Compare Database
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/;database=sistema;User=root;Password=1234;Option=3;"
rs.Open "tbl_clientes", cn, adOpenKeyset, adLockBatchOptimistic
rs.AddNew
rs("Nome") = Me.txt_Nome
rs("Idade") = Me.txt_Idade
rs("Sexo") = Me.grp_Sexo
rs.Update
Me.txt_Nome = Null
Me.txt_Idade = Null
Me.grp_Sexo = Null
Set cn = Nothing
Set rs = Nothing
MsgBox ("Registro salvo com sucesso."), vbInformation, "Salvo com Sucesso"
End Sub
Na hora que eu clico no botão salvar diz que o registro foi salvo com sucesso mais os dados não apreca na banco de dados.
O que estou errando? Me ajude.