[2008] Speeding Up this Code - Urgent!

[Wesley008]

Alright, I have this code which - loops through a text file (very big text file) to find the Course ID, then it adds the item to the List Box and while its doing that, it creates the .mdb file & adds some data from the text file to the database, and while all that is going, a Progress Bar ( which I have yet to figure out how to get it to increment with my Adding of Data ).

The Code is very slow and the application gets hung up with Not Responding if I click on it, I want the user to be able to click on the App to cancel the current import but at the moment it just freezes up.

Code:

Option Strict Off
Imports System.Data.OleDb
Imports System.IO
Module modImport
    Public Sub ImportCourse()
        With frmCourses
            If .ofdOpen.ShowDialog = DialogResult.OK Then
                Dim FileCopyName As String = Application.StartupPath & "\Data\Courses\" & Path.GetFileName(.ofdOpen.FileName.Remove(.ofdOpen.FileName.LastIndexOf("."))) & ".CSV"
                If File.Exists(FileCopyName) = True Then
                    File.Delete(FileCopyName) 'Temp
                Else
                    File.Copy(.ofdOpen.FileName, FileCopyName)
                    SQL = "SELECT [Classes(Import If #1)] FROM " & .ofdOpen.FileName
                    Dim Path As String = IO.Path.GetFullPath(.ofdOpen.FileName.Remove(.ofdOpen.FileName.LastIndexOf("\")))
                    Connection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"";")
                    Command = New OleDbCommand(SQL, Connection)
                    Command.Connection.Open()
                    Adapter.SelectCommand = Command
                    DS = New DataSet
                    Adapter.Fill(DS)
                    Command.Connection.Close()
                    frmImport.pbImport.Maximum = DS.Tables(0).Rows.Count
                    frmImport.pbImport.Minimum = 0
                    For Each DRow As DataRow In DS.Tables(0).Rows
                        If .lstCourses.Items.Contains(DRow("Classes(Import If #1)")) = False Then
                            Connection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Data\Courses\" & DRow("Classes(Import If #1)") & ".mdb")
                            CreateCourse(Connection.ConnectionString)
                            SQL = "INSERT INTO [Information] (CourseCode) VALUES (?); "
                            Command = New OleDbCommand(SQL, Connection)
                            Command.Connection.Open()
                            Command.Parameters.AddWithValue("CourseCode", DRow("Classes(Import If #1)"))
                            Command.ExecuteNonQuery()
                            Connection.Close()
                            frmImport.Show()
                            If frmImport.pbImport.Value < frmImport.pbImport.Maximum Then
                                frmImport.pbImport.Value += 5
                            End If
                        End If
                    Next
                    frmImport.Close()
                    File.Delete(FileCopyName)
                End If
 
            End If
        End With
    End Sub
End Module