Boa noite, estou tentando fechar a conexao abaixo usando o append mas nao estou conseguindo, alguem pode me ajudar no executacomando?
Dim cmd As New SqlCommand
Dim comando As New StringBuilder
comando.Append("INSERT INTO Fixa (")
comando.Append("RazaoSocial, Cnpj, Consultor, ")
comando.Append("Familia, Quantidade, Produto, ")
comando.Append("Valor, DataElaboracao, DataFranquia, ")
comando.Append("Status, DataInstalacao, TempoContrato, ")
comando.Append("insert into Fixa (RazaoSocial, Cnpj, Consultor, Familia, ")
comando.Append("Quantidade, Produto, Valor, DataElaboracao, DataFranquia, Status, DataInstalacao, ")
comando.Append("TempoContrato, Pendencia, DataPendencia, DataRespPendencia, DataEnvioOi, DataOs, ")
comando.Append("NumeroOs, Circuito, TerminalVinculo, PendenciaFae, IdContrato, Mes, Ciclo, ValorP, Recebido, ")
comando.Append("Motivo, StatusAtivacao, NomeCampanha, PendenciaSuporte, DataAtivacao ) values ")
comando.Append("('" & razaoSocial_fixa & "', '" & cnpj_fixa & "', '" & consultor_fixa & "', '" & familia_fixa & "', ")
comando.Append("'" & quantidade_fixa & "', '" & produto_fixa & "', '" & valor_fixa & "', '" & dataElaboracao_fixa & "', ")
comando.Append("'" & dataFranquia_fixa & "', '" & status_fixa & "', '" & dataFranquia_fixa & "', ")
comando.Append("'" & tempoContrato_fixa & "', '" & pendencia_fixa & "', '" & dataPendencia_fixa & "', ")
comando.Append("'" & dataRespPendencia_fixa & "', '" & dataEnvioOi_fixa & "', '" & Convert.ToDateTime(dataOs_fixa).ToString("dd/MM/yyyy") & "', ")
comando.Append("'" & numeroOs_fixa & "', '" & circuito_fixa & "', '" & terminalVinculo_fixa & "', ")
comando.Append("'" & pendenciaFae_fixa & "', '" & idContrato_Fixa & "', 'AAA', '0', '0', 'NÃO', ")
comando.Append("'OK', 'OK', '" & _nome_campanha & "', 'PENDENCIA', '01/01/2001') ")
Dim clBD As New clBanco()
clBD.ExecutaComando()