Podem me ajudar ? minha insert Into não salva o dados do textbox no banco de dados do access, me da o retorno da mensagem programada "Erro ao Salvar". e no Visual Studio mostra que não tem erro no comando.
Using con As OleDbConnection = Conexao()
Try
con.Open()
Dim sql As String = "INSERT INTO Clientes (Razão Social,Nome Fantasia,CPF/CNPJ,Inscrição Estadual,CEP,Endereço,Bairro,Cidade,UF,Telefone da Empresa,Celular da Empresa,Site,E-Mail,OBS,Usuário que Cadastrou,Data
de Cadastro,Nome do Responsável,RG,CPF,Telefone do Responsável,Celular do Responsável) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) "
Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
cmd.Parameters.Add(New OleDb.OleDbParameter("@Razão Social", Txt_Razão_Social.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Nome Fantasia", Txt_Nome_Fantasia.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@CPF/CNPJ", Mtb_CPF_CNPJ.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Inscrição Estadual", Mtb_Inscricao_Estadual.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@CEP", Mtb_CEP.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Endereço", Txt_Endereço.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Bairro", Txt_Bairro.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Cidade", Cbx_Cidade.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@UF", Cbx_UF.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Telefone da Empresa", Mtb_Telefone_Empresa.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Celular da Empresa", Mtb_Celular_Empresa.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Site", Txt_Site.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@E-Mail", Txt_Mail.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@OBS", Txt_OBS.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Usuário que Cadastrou", Txt_Usuario_Cad.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Data de Cadastro", Txt_Calend_Cad.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Nome do Responsável", Txt_Nome_Resp.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@RG", Mtb_RG.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@CPF", Mtb_CPF.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Telefone do Responsável", Mtb_Telefone_Resp.Text))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Celular do Responsável", Mtb_Celular_Resp.Text))
cmd.ExecuteNonQuery()
MsgBox("Cliente cadastrado com sucesso", MsgBoxStyle.MsgBoxHelp, "Cadastrado com Sucesso")
Catch ex As Exception
MsgBox("Erro ao Salvar", MsgBoxStyle.Critical, "Erro ao Salvar")
Finally
con.Close()
End Try
End Using