Ricerca in un DataTable

Dim dt As DataTable = xxxx
dt = SelectIntoDataTable("tipologia = 'S' and dt_inizio > #" & Now.ToString("MM/dd/yyyy") & "#", dt)
Private Function SelectIntoDataTable(ByVal selectFilter As String, ByVal sourceDataTable As DataTable) As DataTable
        Dim newDataTable As DataTable = sourceDataTable.Clone
        Dim dataRows As DataRow() = sourceDataTable.Select(selectFilter)
        Dim typeDataRow As DataRow
        For Each typeDataRow In dataRows
            newDataTable.ImportRow(typeDataRow)
        Next
        Return newDataTable
    End Function