EVITAR UM FROM SOMENTE A PRIMEIRA EXECUSÃO

Imports System.Xml

Public Class Inicializa
    [ô]Cria uma instância de um documento XML
    Dim oXML As New XmlDocument
    Dim oNoLista As XmlNodeList
    Dim oNo As XmlNode

    [ô]Define o caminho do arquivo XML 
    Dim ArquivoXML As String = Application.StartupPath & [Ô]\ini.xml[Ô]
    [ô]carrega o arquivo XML

    Public Function pegaCaminhoBanco() As String
        oXML.Load(ArquivoXML)
        Dim caminhoBanco As String = oXML.SelectSingleNode([Ô]BANCO[Ô]).InnerText

        Return caminhoBanco
    End Function

    Public Sub editaCaminhoBanco(ByVal caminho As String)
        oXML.Load(ArquivoXML)
        Dim root As XmlNode = oXML.DocumentElement

        [ô]cria um novo node
        Dim elem As XmlElement = oXML.CreateElement([Ô]BANCO[Ô])
        elem.InnerText = caminho

        [ô]troca o elemento do xml pelo novo
        root.ReplaceChild(elem, root.FirstChild)

        oXML.Save(ArquivoXML)
        MessageBox.Show([Ô]O caminho foi alterado![Ô])


    End Sub

End Class

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Windows.Forms

Public Class Conexao
    Dim ini As New Inicializa

    Private caminhoBanco As String = ini.pegaCaminhoBanco()
    Private Banco As String = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & caminhoBanco & [Ô]\base.accdb; Jet OLEDB:Database Password = 12345;[Ô]

    Public Sub TestaConexao()
        Try
            Dim conectar As New OleDbConnection(Banco)
            conectar.Open()
        Catch ex As Exception
            MessageBox.Show([Ô]O banco não foi localizado em: [Ô] & ini.pegaCaminhoBanco & [Ô], Informe o caminho correto[Ô])
            Form2.Show()
        End Try
    End Sub

    Public Function Pesquisar(ByVal SQL As String) As DataTable
        Dim dados As New DataTable
        Try
            dados.Rows.Clear()
            Dim conectar As New OleDbConnection(Banco)
            conectar.Open()
            Dim comando As New OleDbCommand(SQL, conectar)
            Dim adapter As New OleDbDataAdapter(comando)
            adapter.Fill(dados)

        Catch ex As Exception
            MessageBox.Show([Ô]Erro de Comando SQL: [Ô] & ex.Message)
        End Try

        Return dados
    End Function

    Public Sub CRUD(ByVal SQL As String)
        Try
            Dim conectar As New OleDbConnection(Banco)
            conectar.Open()
            Dim comando As New OleDbCommand(SQL, conectar)
            comando.ExecuteNonQuery()
            conectar.Close()
        Catch ex As Exception
            MessageBox.Show([Ô]Erro de Comando SQL: [Ô] & ex.Message)
        End Try
    End Sub



End Class

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim conn As New Conexao
        conn.TestaConexao()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form3.Show()
    End Sub
End Class

Public Class Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ini As New Inicializa()
        ini.editaCaminhoBanco(TextBox1.Text)
    End Sub
End Class

Public Class Form3
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim conn As New Conexao()
        conn.CRUD([Ô]INSERT INTO clientes(nome,endereco,telefone) VALUES ([ô][Ô] & TextBox1.Text & [Ô][ô],[ô][Ô] & TextBox2.Text & [Ô][ô],[ô][Ô] & TextBox3.Text & [Ô][ô])[Ô])
        TextBox1.Text = [Ô][Ô]
        TextBox2.Text = [Ô][Ô]
        TextBox3.Text = [Ô][Ô]
        MessageBox.Show([Ô]Dadosgravados![Ô])
    End Sub
End Class