Public Function DatensatzDuplizieren(ID As Integer) As Boolean
        Dim tbl As DataSet1.tbl1 = TableAdapter1.GetData
        Dim dr() As DataRow = tbl.Select("ID = " & ID)
 
        tbl.ImportRow(dr(0))
        TableAdapter1.Update(tbl)
End Function