Public Class AddContactType
 
    Private bs As BindingSource
 
    Private Sub AddContactType_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim f As MainForm = Me.Owner
        bs = f.CodesBindingSource
        bs.AddNew()
        Dim rec As ExtractDataSet.CodesRow = bs.Current.row
        rec.control = False
        rec.Sort = 0
        rec.type = "ContactType"
        Me.Code.DataBindings.Add("Text", bs, "code")
        Me.Value.DataBindings.Add("Text", bs, "value")
    End Sub
 
    Private Sub DoIt_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles DoIt.Click
        bs.EndEdit()
    End Sub
 
    Private Sub CancelIt_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles CancelIt.Click
        bs.CancelEdit()
    End Sub
 
End Class

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov