Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AddHandler DataSet11.tabledetail.FetchFinished, New eventhandler( _
        AddressOf DataSet11_tabledetail_FetchFinished)
 
        Me.DataSet11.tabledetail.FetchAll = True
        Me.Master.Fill(Me.DataSet11, "tablemaster")
        Me.Detail.Fill(Me.DataSet11, "tabledetail")
    End Sub
 
    Private Sub DataSet11_tabledetail_FetchFinished(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) 'Handles 
    ' DataSet11.tabledetail.FetchFinished
        DataSet11.Tables("details").Columns("ID").AutoIncrementSeed = -1    End _
          Sub