Exception of type 'System.OutOfMemoryException' was thrown.

[newdbo]

Hi all, my application occurs an error "Exception of type 'System.OutOfMemoryException' was thrown." when trying to import xlsx file to sql server. The excel is about 400 thousand rows.
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")

 

[newdbo]

At last i have resolved it, by deleting the dataset and change it into data reader. Thanks all