Storing DATA To Sql Server From Access Efficiency

 I have a function which is writing thousands of records coming from Access database and I was wondering if someone can suggest how can reconstruct my code for faster processing.
 
Here my code:
 
Public Sub MigrateNFSData(ByVal calcTbl As DataTable, ByVal strDBConnection As String)

        Dim sqlServerConn As New SqlConnection(strDBConnection)

        'Define stored procedures
        Dim command As New SqlCommand
        Dim getAccID As New SqlCommand("GetAccountID", sqlServerConn)
        Dim getActionID As New SqlCommand("GetActionID", sqlServerConn)
        Dim getExchangeID As New SqlCommand("GetExchangeID", sqlServerConn)
        'Dim getParrentAccID As New SqlCommand("GetParentAccID", sqlServerConn)
        Dim getStatusID As New SqlCommand("GetStatusID", sqlServerConn)
        Dim getTraderID As New SqlCommand("GetTraderID", sqlServerConn)
        Dim getGroupID As New SqlCommand("GetGroupID", sqlServerConn)
        Dim getGroupIDByIP As New SqlCommand("GetGroupIDByIP", sqlServerConn)
        Dim getTraderIDByIP As New SqlCommand("GetTraderIDByIP", sqlServerConn)

        'Define insert records stored procedures
        Dim insertAcc As New SqlCommand("InsertAccount", sqlServerConn)
        insertAcc.CommandType = CommandType.StoredProcedure
        Dim insertAction As New SqlCommand("InsertAction", sqlServerConn)
        insertAction.CommandType = CommandType.StoredProcedure
        Dim insertExchange As New SqlCommand("InsertExchange", sqlServerConn)
        insertExchange.CommandType = CommandType.StoredProcedure
        Dim insertGroup As New SqlCommand("InsertGroup", sqlServerConn)
        insertGroup.CommandType = CommandType.StoredProcedure
        Dim insertStatus As New SqlCommand("InsertStatus", sqlServerConn)
        insertStatus.CommandType = CommandType.StoredProcedure
        Dim insertTrader As New SqlCommand("InsertTrader", sqlServerConn)
        insertTrader.CommandType = CommandType.StoredProcedure

        Try
            sqlServerConn.Open()
        Catch ex As Exception
            MessageBox.Show("Connection failed to open!")
        End Try

        'Set parameters to helper Get Stored Procedures to retreive Id's
        getAccID.Parameters.Add("@AccName", SqlDbType.NVarChar)
        getAccID.CommandType = CommandType.StoredProcedure

        getActionID.Parameters.Add("@ActionName", SqlDbType.NVarChar)
        getActionID.CommandType = CommandType.StoredProcedure

        getExchangeID.Parameters.Add("@ExchName", SqlDbType.NVarChar)
        getExchangeID.CommandType = CommandType.StoredProcedure

        'getParrentAccID.Parameters.Add("@ParentName", SqlDbType.NVarChar)
        'getParrentAccID.CommandType = CommandType.StoredProcedure

        getStatusID.Parameters.Add("@StatusName", SqlDbType.NVarChar)
        getStatusID.CommandType = CommandType.StoredProcedure

        getTraderID.Parameters.Add("@TraderName", SqlDbType.NVarChar)
        getTraderID.CommandType = CommandType.StoredProcedure

        getGroupID.Parameters.Add("@GroupName", SqlDbType.NVarChar)
        getGroupID.CommandType = CommandType.StoredProcedure

        getGroupIDByIP.Parameters.Add("@IP", SqlDbType.NVarChar)
        getGroupIDByIP.CommandType = CommandType.StoredProcedure

        getTraderIDByIP.Parameters.Add("@IP", SqlDbType.NVarChar)
        getTraderIDByIP.CommandType = CommandType.StoredProcedure

        command = New SqlCommand("InsertTradeTransaction", sqlServerConn)
        command.CommandType = CommandType.StoredProcedure

        'Set Parameters for Insert stored procedures
        insertAcc.Parameters.Add("@Account", SqlDbType.Text)
        insertAction.Parameters.Add("@ActionName", SqlDbType.Text)
        insertExchange.Parameters.Add("@Exchange", SqlDbType.Text)
        insertGroup.Parameters.Add("@Group", SqlDbType.Text)
        insertGroup.Parameters.Add("@ACCID", SqlDbType.Int)
        insertGroup.Parameters.Add("@GroupID", SqlDbType.UniqueIdentifier)
        insertStatus.Parameters.Add("@StatusName", SqlDbType.Text)
        insertTrader.Parameters.Add("@Group", SqlDbType.UniqueIdentifier)
        insertTrader.Parameters.Add("@IP", SqlDbType.Text)
        insertTrader.Parameters.Add("@TraderName", SqlDbType.Text)
        insertTrader.Parameters.Add("@TraderID", SqlDbType.UniqueIdentifier)


        'Adding stored Get Stored Procedure's parameters-----------------------
        command.Parameters.Add("@OrderNum", SqlDbType.Text)
        command.Parameters.Add("@ACC_ID", SqlDbType.Int)
        command.Parameters.Add("@Group_ID", SqlDbType.UniqueIdentifier)
        command.Parameters.Add("@Trader_ID", SqlDbType.UniqueIdentifier)
        command.Parameters.Add("@Exch_ID", SqlDbType.Int)
        command.Parameters.Add("@Date", SqlDbType.DateTime)
        command.Parameters.Add("@Time", SqlDbType.DateTime)
        command.Parameters.Add("@ActionID", SqlDbType.Int)
        command.Parameters.Add("@StatusID", SqlDbType.Int)
        command.Parameters.Add("@TimeSent", SqlDbType.DateTime)
        command.Parameters.Add("@Qty", SqlDbType.Int)
        command.Parameters.Add("@Product", SqlDbType.Text)
        command.Parameters.Add("@MMYYY", SqlDbType.Text)
        command.Parameters.Add("@ExchOrderID", SqlDbType.Text)
        command.Parameters.Add("@TimeTicks", SqlDbType.Int)
        command.Parameters.Add("@W2G", SqlDbType.Int)
        command.Parameters.Add("@W2Exch", SqlDbType.Int)
        command.Parameters.Add("@G2ExchDerived", SqlDbType.Int)
        command.Parameters.Add("@Msg", SqlDbType.NVarChar)
        'command.Parameters.Add("@ExchDate", SqlDbType.DateTime)
        'command.Parameters.Add("@ParentID", SqlDbType.Int)
        'Paremeters Defenition--------------------------------------

        'Parsing DateTime Objects
        Dim formaterA As IFormatProvider
        formaterA = New System.Globalization.CultureInfo("en-GB", True)
        Dim dateObj As Date

        'DEBUG
        'Dim rows = calcTbl.Rows.Count
        Dim colValues = GetColumnsValues(calcTbl)

        'Write table with computed NFS data to sql server DB
        For Each dr As DataRow In calcTbl.Rows

            Dim orderNo = dr.Item("Order No").ToString()
            command.Parameters("@OrderNum").Value = dr.Item("Order No").ToString()

            getAccID.Parameters("@AccName").Value = dr.Item("Acct").ToString()
            If getAccID.ExecuteScalar() = Nothing Then
                insertAcc.Parameters("@Account").Value = dr.Item("Acct").ToString()
                insertAcc.ExecuteNonQuery()

                getAccID.Parameters("@AccName").Value = dr.Item("Acct").ToString()
                command.Parameters("@ACC_ID").Value = getAccID.ExecuteScalar()
            Else
                command.Parameters("@ACC_ID").Value = Int32.Parse(getAccID.ExecuteScalar()).ToString()
            End If


            getGroupID.Parameters("@GroupName").Value = dr.Item("Group ID").ToString()
            If getGroupID.ExecuteScalar() = Nothing Then

                'Find Group by IP address if input Data Table doesn't have group
                getGroupIDByIP.Parameters("@IP").Value = dr.Item("IP").ToString()

                If getGroupIDByIP.ExecuteScalar() = Nothing Then

                    insertGroup.Parameters("@GroupID").Value = Guid.NewGuid
                    insertGroup.Parameters("@Group").Value = dr.Item("Group ID")
                    insertGroup.Parameters("@ACCID").Value = getAccID.ExecuteScalar()
                    insertGroup.ExecuteNonQuery()
                    command.Parameters("@Group_ID").Value = getGroupID.ExecuteScalar()
                Else
                    command.Parameters("@Group_ID").Value = getGroupIDByIP.ExecuteScalar()
                End If
            Else
                command.Parameters("@Group_ID").Value = getGroupID.ExecuteScalar()
            End If


            getTraderID.Parameters("@TraderName").Value = dr.Item("Trd ID").ToString()
            If getTraderID.ExecuteScalar() = Nothing Then

                getTraderIDByIP.Parameters("@IP").Value = dr.Item("IP").ToString()
                If getTraderIDByIP.ExecuteScalar() = Nothing Then

                    insertTrader.Parameters("@Group").Value = getGroupID.ExecuteScalar()
                    insertTrader.Parameters("@IP").Value = dr.Item("IP").ToString()
                    insertTrader.Parameters("@TraderName").Value = dr.Item("Trd ID").ToString()
                    insertTrader.Parameters("@TraderID").Value = Guid.NewGuid

                    insertTrader.ExecuteNonQuery()
                    command.Parameters("@Trader_ID").Value = getTraderID.ExecuteScalar()
                Else
                    command.Parameters("@Trader_ID").Value = getTraderIDByIP.ExecuteScalar()
                End If
            Else
                command.Parameters("@Trader_ID").Value = getTraderID.ExecuteScalar()
            End If


            getExchangeID.Parameters("@ExchName").Value = dr.Item("Exch").ToString()
            If getExchangeID.ExecuteScalar() = Nothing Then
                insertExchange.Parameters("@Exchange").Value = dr.Item("Exch").ToString()

                insertExchange.ExecuteNonQuery()
                command.Parameters("@Exch_ID").Value = getExchangeID.ExecuteScalar()
            Else
                command.Parameters("@Exch_ID").Value = getExchangeID.ExecuteScalar()
            End If


            getActionID.Parameters("@ActionName").Value = dr.Item("Action").ToString()
            If getActionID.ExecuteScalar() = Nothing Then
                insertAction.Parameters("@ActionName").Value = dr.Item("Action").ToString()
                command.Parameters("@ActionID").Value = getActionID.ExecuteScalar()
            Else
                command.Parameters("@ActionID").Value = getActionID.ExecuteScalar()
            End If


            getStatusID.Parameters("@StatusName").Value = dr.Item("Status").ToString()
            If getStatusID.ExecuteScalar() = Nothing Then
                insertStatus.Parameters("@StatusName").Value = dr.Item("Status").ToString()

                insertStatus.ExecuteNonQuery()
                command.Parameters("@StatusID").Value = getStatusID.ExecuteScalar()
            Else
                command.Parameters("@StatusID").Value = getStatusID.ExecuteScalar()
            End If

            'getParrentAccID.Parameters("@ParentName").Value = ""
            'If getParrentAccID.ExecuteScalar() = 0 Then
            'insert parent acc
            'Else
            'command.Parameters("@ParentID").Value = getParrentAccID.ExecuteScalar()

            dateObj = Date.Parse(dr.Item("Exch Date").ToString(), formaterA)
            command.Parameters("@Date").Value = dateObj

            command.Parameters("@Time").Value = DateTime.Parse(dr.Item("Time").ToString())
            command.Parameters("@TimeSent").Value = DateTime.Parse(dr.Item("Time Sent").ToString())

            If (dr.Item("Qty").Equals(System.DBNull.Value)) Then
                command.Parameters("@Qty").Value = System.DBNull.Value
            Else
                command.Parameters("@Qty").Value = Int32.Parse(dr.Item("Qty").ToString())
            End If

            command.Parameters("@Product").Value = dr.Item("Product").ToString()
            command.Parameters("@MMYYY").Value = dr.Item("MMMYY").ToString()
            command.Parameters("@ExchOrderID").Value = dr.Item("Exchange Order ID").ToString()

            If (dr.Item("Time Ticks").Equals(System.DBNull.Value)) Then
                command.Parameters("@TimeTicks").Value = System.DBNull.Value
            Else
                command.Parameters("@TimeTicks").Value = Int32.Parse(dr.Item("Time Ticks").ToString())
            End If

            'command.Parameters("@ExchDate").Value = Date.Parse(dr.Item("Exch Date").ToString())
            'command.Parameters("@ExchDate").Value = Convert.ToDateTime(dr.Item("Exch Date").ToString())

            'DEBUG
            'Dim strW2G = dr.Item("W2G").ToString()
            'Dim strW2E = dr.Item("W2E").ToString()
            If (dr.Item("W2G").Equals(System.DBNull.Value)) Then
                command.Parameters("@W2G").Value = System.DBNull.Value
            Else
                command.Parameters("@W2G").Value = Int32.Parse(dr.Item("W2G").ToString())
            End If

            If dr.Item("W2E").Equals(System.DBNull.Value) Then
                command.Parameters("@W2Exch").Value = System.DBNull.Value
            Else
                command.Parameters("@W2Exch").Value = Int32.Parse(dr.Item("W2E").ToString())
            End If

            'command.Parameters("@G2ExchDerived").Value = Int32.Parse(dr.Item("Time Delta G2E").ToString())
            If (dr.Item("Time Delta G2E").Equals(System.DBNull.Value)) Then
                command.Parameters("@G2ExchDerived").Value = System.DBNull.Value
            Else
                command.Parameters("@G2ExchDerived").Value = Int32.Parse(dr.Item("Time Delta G2E").ToString())
            End If

            command.Parameters("@Msg").Value = dr.Item("Msg").ToString()

            command.ExecuteNonQuery()
        Next

        sqlServerConn.Close()

    End Sub