怎么在已经存有海量数据的SQLSERVER数据中快速插入新记录

如何在已经存有海量数据的SQLSERVER数据中快速插入新记录
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=qiany;uid=;pwd=;database=myDB"
conn.ConnectionTimeout = 0
conn.CommandTimeout = 0  
conn.Open
sSql = "select * from myTable"
rs.Open sSql, conn, 3, 2
rs.addNew
rs.fields(0)=**
...
rs.update
rs.close 

我采用以上方法插入数据，以前都没问题。现在我使用的DB中已经存有100多万条记录，每次新增加一条记录都要等N久时间。
请高手指点一下。


[解决办法]
改成下面就行了
sSql = "select top 1 * from myTable" 
rs.Open sSql, conn, 3, 2