Dados inseridos via software não aparecem no banco ou na consulta, ou somem rapidamente

Question

Boa tarde!

Estou desenvolvendo um software em VB, utilizando o Visual Studio 2010, com LocalDB e, consequentemente, utilizando o SQL Server como banco de dados.

O programa cadastra, exclui, altera e consulta dados dentro do banco, parte a qual ainda estou trabalhando. Porém, estou tentando fazer a consulta de um dado que fora cadastrado no banco, porém a consulta não retorna dados anteriores. Por exemplo: se faço o cadastro agora e vou consultá-lo imediatamente, ele aparece na consulta, mas se salvo o desenvolvimento, fecho a plataforma e reinicio-a, o dado sumiu, não consigo consultá-lo novamente.

Alguém para me ajudar ou para me explicar o que está acontecendo? O estranho é que não há qualquer retorno de falha de conexão, tabela vazia ou algo parecido. O programa roda liso, mas os dados não aparecem.

Segue abaixo meu código:

'Para cadastro

Public conexao As New SqlConnection
    Public comando As New SqlCommand
    Public leitura As SqlDataReader
    Public nonquery As String

    Public Sub Executar()
        comando.ExecuteNonQuery()
    End Sub

    Public Sub Conectar()
        conexao.ConnectionString = My.Settings.con
        conexao.Open()
    End Sub

    Public Sub Ler()
        leitura = comando.ExecuteReader
    End Sub

    Public Sub Comandar(ByVal com As String)
        comando.Connection = conexao
        comando.CommandText = (com)
        comando.CommandType = CommandType.Text
    End Sub

    Public Sub Fechar()
        conexao.Close()
    End Sub

Try
                Conectar()
                Comandar("INSERT INTO TBORCAMENTOS (PROJETISTA, SOLICITANTE, CLIENTE, NUMPROJETO, DATAPROJETO, PRODUTO, LINHA, COMPOSICAO, NUMREVISAO, DATAREVISAO, TIPOARQUIVO, QUANTFOLHAS, ENDERECOARQ) VALUES ('" & txtPrimeiro.Text & "', '" & txtSegundo.Text & "', '" & txtTerceiro.Text & "', '" & txtQuarto.Text & "', '" & txtQuinto.Text & "', '" & txtSexto.Text & "', '" & txtSetimo.Text & "', '" & txtOitavo.Text & "', '" & txtNono.Text & "', '" & txtDecimo.Text & "', '" & txtDecPrimeiro.Text & "', '" & txtDecSegundo.Text & "', '" & txtDecTerceiro.Text & "')")
                Ler()
                Fechar()
            Catch ex As Exception
                Fechar()
                MessageBox.Show(ex.Message)
            End Try

'Para consulta

Try
                Conectar()
                Comandar("SELECT PROJETISTA, SOLICITANTE, CLIENTE, NUMPROJETO, DATAPROJETO, PRODUTO, LINHA, COMPOSICAO, NUMREVISAO, DATAREVISAO, TIPOARQUIVO, QUANTFOLHAS, ENDERECOARQ FROM TBORCAMENTOS WHERE produto = '" & lstResultados.SelectedItem & "'")
                Ler()
                Do While leitura.Read
                    txtPrimeiro.Text = leitura("PROJETISTA")
                    txtSegundo.Text = leitura("SOLICITANTE")
                    txtTerceiro.Text = leitura("CLIENTE")
                    txtQuarto.Text = leitura("NUMPROJETO")
                    txtQuinto.Text = leitura("DATAPROJETO")
                    txtSexto.Text = leitura("PRODUTO")
                    txtSexto.Text = leitura("LINHA")
                    txtSetimo.Text = leitura("COMPOSICAO")
                    txtOitavo.Text = leitura("NUMREVISAO")
                    txtNono.Text = leitura("DATAREVISAO")
                    txtDecimo.Text = leitura("TIPOARQUIVO")
                    txtDecPrimeiro.Text = leitura("QUANTFOLHAS")
                    txtDecSegundo.Text = leitura("ENDERECOARQ")
                Loop
                Fechar()
            Catch ex As Exception
                Fechar()
                MessageBox.Show(ex.Message)
            End Try

Answer 1

Cheguei a utilizar o mesmo código, com modificações como nomes de variáveis e afins, em outros projetos, e não tive quaisquer problema. A diferença é que usei o MySQL como banco de dados. Não sei se estou tendo um problema exclusivo do SQL Server.