VB读写数据库速度如何?为什么我的这么慢..比ASP慢多了....

我读一个文件里面有6万多个邮件..然后写进一个数据库(ACCESS)用ASP读出来然后写到过期能写入4万多笔.....
而用VB读写进数据库..好象死了..一会看结果写进很少,改用SQLSERVER2000结果也只写了2万来笔(时间比ASP等待长)...
如不写入数据库时还挺快....是不是我的连接数据库有问题???还是什么地方出错...
以下是我的VB连接数据库代码...
VB用了DataEnvironment控件(这是不是叫控件?初学见笑^_^)Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    On Error GoTo ExecuteSQL_error
    sTokens = Split(SQL)
    Set cnn = New ADODB.Connection
'   MsgBox "hello"
    cnn.Open ConnectString
    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
        cnn.Execute SQL
        MsgString = sTokens(0) & "query successful"
    Else
        Set rst = New ADODB.Recordset
        rst.Open Trim$(SQL), cnn, adOpenStatic, adLockOptimistic
        Set ExecuteSQL = rst
        MsgString =  rst.RecordCount
    End If
ExecuteSQL_Exit:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Function
ExecuteSQL_error:
    MsgString = "err" & Err.Description
    Resume ExecuteSQL_Exit
End Function
Public Function ConnectString() As String
       ConnectString = "Provider=SQLOLEDB.1;Password=wqxu;User ID=sa;Initial Catalog=email;Data Source=wqxu-exp" 'ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\maillist.mdb;Persist Security Info=False"  '连接access时用
 End Function以上是连接数据库模块,以下是运用...
 txtsql = "insert into email(email,yn) values('" & NewMailAdd & "','Yes')"
 Set mrc = ExecuteSQL(txtsql, MsgText)
为什么会这么慢..请各路高手指教..如果VB本质如此(好象不可能),那我好改学别的程序语言..嘿嘿...