Como adicionar dados de um formulário em um banco de dados do access?

[Eric Jhon]

Olá, Pessoal. Essa é a minha primeira vez aqui no fórum e também em VB .Net + Access.

Eu tenho uma cadastro de funcionário onde é exibido os dados de uma tabela do banco de dados do access quando o form é carregado, até aqui tudo bem. Com OleDb.OleDbDataReader eu consegui exibir os dados nos campos do formulário e também preencher os combobox com campos da tabela.

Porém não estou conseguindo adicionar, editar e excluir os dados do banco de dados.

Esse é o código que preenche os campos do formulário quando o form é carregado:

Private Sub IDServidor_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles IDServidor.TextChanged
        Dim LeituraBD As OleDb.OleDbDataReader
        Dim ComandoSQL As String

        If Len(IDServidor.Text) = 6 Then
            'Armazena na variável o comando que fará a consulta SQL no BD Access
            ComandoSQL = "select * from TB_Servidores where IDServidor like '" & IDServidor.Text & "'"

            'Chama a rotina que faz a conexão com o BD
            Call Conectar()

            'Atribui a variável objeto de BD a execução dos comandos SQL
            Consulta = New OleDb.OleDbCommand(ComandoSQL, Banco)

            LeituraBD = Consulta.ExecuteReader
            LeituraBD.Read()
            'Tratamento de erro de acesso aos dados. Se houver erro, desvia o comando para o rótulo Sai
            'On Error Resume Next

            'Preenche Formulário
            Matrícula.Text = CNullToStr(LeituraBD.Item("Matrícula")) 'Matrícula
            Regime.Text = CNullToStr(LeituraBD.Item("Regime")) 'regime
            Nome.Text = CNullToStr(LeituraBD.Item("nome")) 'nome
            Cargo.Text = CNullToStr(LeituraBD.Item("cargo")) 'cargo
            Função.Text = CNullToStr(LeituraBD.Item("função")) 'função
            Unidade.Text = CNullToStr(LeituraBD.Item("unidade")) 'unidade
            Lotação.Text = CNullToStr(LeituraBD.Item("lotação")) 'lotação
            Admissão.Text = CNullToStr(LeituraBD.Item("admissão")) 'admissão
            Jornada.Text = CNullToStr(LeituraBD.Item("jornada")) 'jornada de trabalho
            CPF.Text = CNullToStr(LeituraBD.Item("cpf")) 'cpf
            Pasep.Text = CNullToStr(LeituraBD.Item("pis/pasep")) 'pasep
            Nascimento.Text = CNullToStr(LeituraBD.Item("dt nascimento")) 'nascimento
            Observação.Text = CNullToStr(LeituraBD.Item("Observação")) 'Observações

            Call Desconecta()

            'Configura o Display de Registro Atual
            RegistroAtual.Text = IDServidor.SelectedIndex + 1
        End If
    End Sub

Essa é uma função que eu criei para converter os valores null do banco de dados para string:

Function CNullToStr(ByVal Variável) As String
        'Converte uma variável de banco de dados com valor NULL para uma STRING vazia
        On Error Resume Next
        If Variável Is DBNull.Value Then
            CNullToStr = ""
        Else
            CNullToStr = Variável
        End If
End Function