文件名的特别字符 导致数据库连不上？求解答

DS = getDataset("select top 1 *  from " & safefilename & " where [F4] = 'Mid-M 70%' order by [F2],[F3] desc", Filepath)

'FilePath为该CSV所在文件夹，safefilename为该文件文件名



 Function getDataset(ByVal sql As String, ByVal path As String) As DataSet

        Try

           

            Dim connstr As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source= " & path & "\;Extended Properties=""text;HDR=no;FMT=Delimited"""

            Dim conn As OleDbConnection = New OleDbConnection(connstr)              

            Dim adapter1 As OleDb.OleDbDataAdapter = New OleDbDataAdapter(sql, conn)

            Dim cmd As OleDbCommand = New OleDbCommand

            Dim commandBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter1)

            getDataset = New DataSet

            adapter1.Fill(getDataset, "temp")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try



    End Function