Code:

        Dim newItem As New myItem
        newItem = Me.bs.Current

        bs.AddNew()

        ' Copy data from cloned item to form controls
        With newItem 
            Me.FirstNameTextBox.Text = .FirstName
            ...
        End With

        ' Focus on first data entry field

Code:

        Public Function Clone() As YourEntityType
            Dim oEntity As New YourEntityType
            'Give this new object a 'copy' of the underlying datatable
            oEntity.Table = Me.Table.Clone
            'Mark all as added so that the auto inc PK is created upon INSERT
            oEntity.MarkAllColumnsAsDirty(DataRowState.Added)
            Return oEntity
        End Function

Code:

1    
2                    // Load the collection
3                    TblCompanyCollection local = new TblCompanyCollection();
4                    local.LoadAll();
5    
6                    // Iterate through the stub and update the collection
7                    Proxy.TblCompanyCollectionProxyStub download = ((Proxy.TblCompanyCollectionProxyStub)stub);
8    
9                    // Configure the sub progress bar
10                   int position = 0;
11                   ConfigureSubBar(download.Collection.Count);
12                   foreach (Proxy.TblCompanyProxyStub item in download.Collection)
13                   {
14   
15                       // Attempt to load the local collection from the items primary key
16                       TblCompany record = local.FindByPrimaryKey((Guid)item.CompanyId);
17                       if (record == null)
18                       {
19                           record = local.AddNew();
20                       }
21   
22                       record.CompanyId = item.CompanyId;
23                       record.Active = item.Active;
24                       record.Description = item.Description;
25                       record.Password = item.Password;
26   
27                       // Incremement the sub progress
28                       UpdateProcessBarSub(ref position);
29   
30                   }
31   
32                   // Save the collection
33                   local.Save();