tenha esse procedimento ai q nao funciona, ele conclui como se tivesse incluido um novo registro mas simplismente nao coloca nda do mdf, oq esta errado?

Public Sub incluirRegistro()

Dim sqlInclui As String

Dim reg As Integer

Dim sqlComando As SqlCommand

Dim datatmp As Date

Dim aux As String

Dim datatmp2 As Date

Dim aux2 As String

aux2 = datatmp2.Year.ToString & "-" & datatmp2.Month.ToString & "-" & datatmp2.Day.ToString

If FormClientes.TxtDataNascimento.Text.Length = 0 Or Not IsDate(FormClientes.TxtDataNascimento.Text) Then

aux = "01/01/1900"

Else

aux = datatmp.Year.ToString & "-" & datatmp.Month.ToString & "-" & datatmp.Day.ToString

End If

sqlInclui = "INSERT INTO Clientes (Codigo,Datacadastro,Nome,Fantasia,Endereco,Bairro,Cep,Cidade,UF,Pais,foneresidencial,FoneComercial,Celular,Cpf,RG,DataNascimento,Localtrabalho,Email,Observacao,Vender,Tipo)VALUES (" & FormClientes.TxtCodigo.Text & ",'" & aux2 & "','" & FormClientes.TxtNome.Text & "','" & FormClientes.TxtFantasia.Text & "','" & FormClientes.TxtEndereco.Text & "','" & FormClientes.TxtBairro.Text & "','" & FormClientes.TxtCep.Text & "','" & FormClientes.TxtCidade.Text & "','" & FormClientes.CmbUF.Text & "','" & FormClientes.TxtPais.Text & "','" & FormClientes.TxtFoneResidencial.Text & "','" & FormClientes.TxtFoneComercial.Text & "','" & FormClientes.TxtCelular.Text & "','" & FormClientes.TxtCNPJ.Text & "','" & FormClientes.TxtRG.Text & "','" & aux & "','" & FormClientes.TxtLocalTrabalho.Text & "','" & FormClientes.TxtEmail.Text & "','" & FormClientes.TxtObservacao.Text & "','" & FormClientes.CmbVender.Text & "','" & "F" & "')"

connBD = New SqlConnection(strcon) 'strcon é preenchida pelo conectabanco de dados

sqlComando = New SqlCommand(sqlInclui, connBD)

da.InsertCommand = sqlComando

Try

If reg > 0 Then

MsgBox("Incluido com sucesso.")

End If

Catch ex As Exception

MessageBox.Show("Erro : " & vbCrLf & ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)

Finally

End Try

End Sub