Dim tmp_datatable As New DataTable
    Dim tmp_datarow As DataRow
 
  Public ReadOnly Property aktdatarow() As DataTable
        Get
            Dim anzcol As Integer = choosedata.Columns.Count
            Dim i As Integer
 
            tmp_datatable.TableName = "tempdt"
            For i = 0 To anzcol - 1
                tmp_datatable.Columns.Add(choosedata.Columns(i).ColumnName, _
                  choosedata.Columns(i).GetType)
            Next
            tmp_datarow = tmp_datatable.NewRow
            For i = 0 To anzcol - 1
                tmp_datatable.Rows(0).Item(i) = datagrid2.Item( _
                  datagrid2.CurrentRowIndex, i)
            Next i
            Return tmp_datatable
        End Get
    End Property

Datarow=Datatable.NewRow