VB + banco de dados access

[igor.oliveira]

Estou com um problema em adicionar/editar/deletar novos itens na tabela, eu segui um tutorial e me levou ao código abaixo e funciona, ele lista os valores na combobox, mas ai eu clico em adicionar e abr e o form2 com dois textbox

 

form1.vb:

Imports System.DataImports System.Data.OleDbPublic Class Form1    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        PPreenchaComboBox()    End Sub    Private Sub PPreenchaComboBox()        Using con As OleDbConnection = GetConnection()            Try                con.Open()                Dim sql As String = "SELECT Nome FROM servidores"                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)                Dim da As OleDbDataAdapter = New OleDbDataAdapter                Dim dt As DataTable = New DataTable                da.SelectCommand = cmd                da.Fill(dt)                cmxNomeservidores.DisplayMember = "Nome"                cmxNomeservidores.DataSource = dt            Catch ex As Exception                MsgBox(ex.Message)            Finally                con.Close()            End Try        End Using    End Sub    Private Sub PleDados()        Dim dr As OleDbDataReader = Nothing        Using con As OleDbConnection = GetConnection()            Try                con.Open()                Dim sql As String = "SELECT IP FROM servidores WHERE nome='" & cmxNomeservidores.Text & "'"                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)                dr = cmd.ExecuteReader(CommandBehavior.SingleRow)                If dr.HasRows Then                    dr.Read()                    lbl_IP.Text = dr.Item("IP")                Else                    MsgBox("Não foi encontrado")                End If            Catch ex As Exception                MsgBox(ex.Message)            Finally                con.Close()            End Try        End Using    End Sub    Private Sub cmxNomeservidores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmxNomeservidores.SelectedIndexChanged        PleDados()    End Sub    Private Sub btn_addservidor_Click(sender As Object, e As EventArgs) Handles btn_addservidor.Click        Form2.Show()    End SubEnd Class

mdlAcesso:

Imports System.DataImports System.Data.OleDbModule mdlAcesso    Public Function GetConnection() As OleDbConnection        Dim sql As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\bancoservidores.accdb"        Return New OleDbConnection(sql)    End FunctionEnd Module

[CypherNet]

Private Sub PPreenchaComboBox()Using con As OleDbConnection = GetConnection()Trycon.Open()Dim sql As String = "SELECT IP, Nome FROM servidores"Dim cmd As OleDbCommand = New OleDbCommand(sql, con)Dim da As OleDbDataAdapter = New OleDbDataAdapterDim dt As DataTable = New DataTableda.SelectCommand = cmdda.Fill(dt)cmxNomeservidores.DisplayMember = "Nome"cmxNomeservidores.DataSource = dt'é só colocar para o label utilzar o mesmo datasource,'Sendo assim ele busca pra vocêlbl_IP.DataBindings.Add("Text", dt, "IP", False, DataSourceUpdateMode.OnPropertyChanged)Catch ex As ExceptionMsgBox(ex.Message)Finallycon.Close()End TryEnd UsingEnd Sub 

Com isso não precisa mais do método PleDados()