Visual Basic

Public Function GetSelectAnd2Records(ByVal strTableName, ByVal strCriteria1, ByVal strCriteria3) As DataSet
    ' Are you sure Access uses asterisks as wildcards???
    ' I don't know because I don't use Access anymore...
    strCriteria1 = "*" & strCriteria1 & "*"
    strCriteria3 = "*" & strCriteria3 & "*"
 
    Dim strSQL As String = String.Format("SELECT [ID], [Subject], [Body], [Received], [From] " & _
            "FROM {0} WHERE [Body) Like ""{1}"" And (Terminals.Body) Like ""{2}""" & _
            "ORDER BY Received DESC", strTableName, strCriteria1, strCriteria3)
 
    Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NovaEmailKB\KNOWLEDGE BASE SSC.mdb;")
    Dim comm As New OleDbCommand(strSQL, conn)
 
    Console.WriteLine(strSQL)
 
    Try
        Using da As OleDbDataAdapter = New OleDbDataAdapter(comm)
            da.Fill(ds)
        End Using
    Catch ex As Exception
        MsgBox("An unexpected MS Access error has occured: " & ex.Message)
    End Try

    Return ds
End Function

Dim strMP3Files As String() <br />
strMP3Files = System.IO.Directory.GetFiles(strSelectedDir, "*.mp3")