Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btAdd.Click
        Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
 
        Dim id As Integer
        Dim name As String
 
            id = CStr(edId.Text)
            name = edName.Text
 
            con.ConnectionString =
               "Provider=Microsoft.Jet.OLEDB.4.0;" &
               "Data Source=[Pfad gekürzt]\ManagementDb.mdb"
 
            cmd.Connection = con
            cmd.CommandText = "INSERT INTO customer (id,customer_name) VALUES (" & _
              "'1', 'Mustermann')"
 
            MsgBox(id & vbNewLine & name, MsgBoxStyle.Information, "[Manager]" & _
              "> Ausgabe")
            Try
                con.Open()
                cmd.ExecuteScalar()
 
                con.Close()
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
    End Sub