CREATE TABLE [dbo].[tbNark] (
    [IdNark] INT           IDENTITY (1, 1) NOT NULL,
    [Dat]    DATE          NULL,
    [FIO]    NVARCHAR (50) NULL,
    [Istor]  NVARCHAR (50) NULL,
    [Fent]   INT           NULL,
    [Ket]    INT           NULL,
    [Rel]    INT           NULL,
    [Sib]    INT           NULL,
    [Dok]    NVARCHAR (50) NULL,
    PRIMARY KEY CLUSTERED ([IdNark] ASC)
);

Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        TbNarkBindingSource.EndEdit()
        TbNarkTableAdapter.Update(DbOARDataSet.tbNark)
    End Sub

INSERT INTO tbNark
                  (Dat, FIO, Istor, Fent, Ket, Rel, Sib, Dok)
VALUES (@Dat,@FIO,@Istor,@Fent,@Ket,@Rel,@Sib,@Dok); 
SELECT IdNark, Dat, FIO, Istor, Fent, Ket, Rel, Sib, Dok FROM tbNark WHERE (IdNark = SCOPE_IDENTITY())

Public Class fmNarkot
    Private Sub fmNarkot_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: данная строка кода позволяет загрузить данные в таблицу "DbOARDataSet.tbNark". При необходимости она может быть перемещена или удалена.
        Me.TbNarkTableAdapter.Fill(Me.DbOARDataSet.tbNark)
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        TbNarkBindingSource.AddNew()
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        TbNarkBindingSource.EndEdit()
        TbNarkTableAdapter.Update(DbOARDataSet.tbNark)
    End Sub
End Class

Public Sub New()
        InitializeComponent()
        DatDateTimePicker.Value = DateTime.Now
    End Sub