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

Question

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久时间。
请高手指点一下。

Answer 1

改成下面就行了
sSql = "select top 1 * from myTable" 
rs.Open sSql, conn, 3, 2 

Answer 2

1，
sSql = "select * from myTable where 1=2" 
rs.Open sSql, conn, 3, 2 
rs.addNew 
rs.fields(0)=** 
... 
rs.update 
rs.close  
2,
conn.execute "insert into mytable(...) values(...)"

Answer 3

1， 
sSql = "select * from myTable where 1=2"  
rs.Open sSql, conn, 3, 2  
rs.addNew  
rs.fields(0)=**  
...  
rs.update  
rs.close   
2, 
conn.execute "insert into mytable(...) values(...)" 
___________________________________________________________
谢谢你的答复。
但不好意思，我在结贴的时候没刷新显示出你的答复，结完才发现，所以没给分。