GetADOConnection().Execute "Delete FROM Temp_PartInfo"
    ImportFromExcel "Temp_PartInfo", , , , , True
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Select * FROM TMP_ImportSpecs Where TableName='Temp_PartInfo' AND Import=True AND ToField<>'PartNo'")
    Dim strSET As String
    Do Until rst.EOF
        strSET = strSET & "tblPartInfo.[" & rst![ToField] & "]=Y.[" & rst![ToField] & "],"
        rst.MoveNext
    Loop
    rst.Close
    strSET=LEFT(strSET,LEN(strSET)-1)
    GetADOConnection().Execute "Update tblPartInfo " _
				& "SET " & strSET & " " _
				& "FROM tblPartInfo AS X INNER JOIN Temp_PartInfo AS Y ON X.PartNo=Y.PartNo "