如何将EXCEL表导入SQL2000

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
Dim cn1 As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs1 As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=EXCEL文件名.xls;Extended Properties='Excel 8.0;HDR=Yes'"
cn.Open
rs.Open "select * from [EXCEL工作表名$]", cn, adOpenKeyset, adLockOptimistic
str = "Driver={SQL Server};Server=数据库服务器名;DataBase=数据库;UID=登陆用户;PWD=密码;"
cn1.Open str
rs1.Open "select * from 数据库表名", cn1, adOpenKeyset, adLockOptimistic
cmd.CommandText = "delete from 数据库表名 " '清空原数据表
cn1.Execute cmd.CommandText
For j = 1 To rs.RecordCount
If rs.EOF = True Then
Exit Sub
Else
rs1.AddNew
For i = 0 To rs.Fields.Count - 1
rs1.Fields(i) = rs.Fields(i)
Next i
rs1.Update
rs.MoveNext
End If
Next j
cn.Close
cn1.Close

说明：1、必须将EXCEL表放在程序的同一目录下!
2、数据库中要使用的数据表的数据项要和EXCEL表中的一样!
3、经测试，1w条EXCEL数据导入本地数据库耗时在7~10秒左右
4、本程序引用了Microsoft ActiveX Data Objects 2.5 Library