command = cn.CreateCommand
command.CommandText = "update Gurnal set Nomer_protokol=@Nomer_protokol, Date_attestation=@Date_attestation where id=@id"
command.Parameters.Add("@Nomer_protokol", SqlDbType.VarChar, 50, "Nomer_protokol").SourceVersion = DataRowVersion.Current
command.Parameters.Add("@Date_attestation", SqlDbType.SmallDateTime, 255, "Date_attestation").SourceVersion = DataRowVersion.Current
command.Parameters.Add("@ID", SqlDbType.BigInt, 50, "ID").SourceVersion = DataRowVersion.Original
DA.UpdateCommand = command

 Public Function InsertString(ByVal Value As String) As Object
        If String.IsNullOrEmpty(Value) Then
            Return DBNull.Value
        End If
        Return (Value)
    End Function