用VBA导入九万多条数据时速度特别慢，求教 代码如下：

用VBA导入九万多条数据时速度特别慢，求教 代码如下：

For i = 1 To 100000
    If Range("A" & i + 2) <> "" Then
        count = i
    Else
        Exit For
    End If
Next
Dim conn As Object
Set conn = CreateObject("adodb.connection")
connStr = "Driver={SQL Server};DataBase=compeer;Server=  ;UID=  ;PWD=  "    
conn.Open connStr 
dim arr
arr=range("A3:B" & count+2) '把单元格内容读到数组里，会快一些，其它地方代码不全，暂时没什么建议
For i = 2 To count + 1
    mebname =arr(i-1,1)
    mebtelno =arr(i-1,2)
    tager = Date
    'mebemail = Null
    'customerno = Null
    'sidd = Null
    'mebno = Null
    'mebkeyno = Null
    Sql = "Insert into blacklist(meb_name,meb_telno,tag) Values('" & mebname & "','" & mebtelno & "','" & tager & "')"
    conn.Execute (Sql)

CreateObject这个应该在循环外初始化。