从Excel表中往Sqlserver中插入60000多条数据为什么那么慢？

我是从客户端向服务器端插入的。
For I = 2 To ObjSheet.UsedRange.Rows.Count
    DoEvents
    StrSql = StrSql & "Insert into tablename (filed1,field2,field3,field4,field5,field6,field7,field8) values ("
    StrSql = StrSql & "'" & IntUseID & "',"
      
    For J = 1 To 8
     
    
      If J < 8 Then
      
       StrSql = StrSql & "'" & ObjSheet.Cells(I, J).Value & " ',"
       Else
        StrSql = StrSql & "'" & ObjSheet.Cells(I, J).Value & " '"
     End If
    Label8.Caption = I - 1
    Next J
   StrSql = StrSql & ");"
      ObjConn.Execute StrSql
 
 Next I