[RESOLVED] error - Exception of type 'System.OutOfMemoryException' was thrown.

[newcoder83]

Hi all, my application occurs an error "Exception of type 'System.OutOfMemoryException' was thrown." when trying to import xlsx file to sql server.
Any help appreciated...Please Help this is very urgent

        strSQL = "select * from [" & ExcelSheetName & "]"
        Dim Oledbcmd As New OleDbCommand(strSQL, XLSconnection)
        Dim oledbda As New OleDbDataAdapter(strSQL, XLSconnection)
        Dim DS As New DataSet
        ProgressBar1.PerformStep()
        oledbda.Fill(DS, "DS")