Public Sub insertToDb()
'----------------------------
'   插入到数据库
'   owen
'   2008/03/18
'----------------------------
Dim conn As New ADODB.Connection
Dim cmd As New
Dim strConn As String
Dim strCmdSql As String
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_YDSH;Data Source=192.168.30.150;password=qaz123edc456tgb"
strCmdSql = "insert into tb_CodeTemp SELECT * FROM OpenRowSet('Microsoft.Jet.OLEDB.4.0'," & _
        "'Excel 8.0;HDR=Yes;database=f:\YDSH\test.xls;'," & _
        "'select * from [ACAD0001$]')"

cmd.ActiveConnection = conn
= strCmdSql
cmd.Execute
conn.Close
MsgBox "ok，数据已导入"
End Sub

以上是我的代码，但是text.xls数据库必须放到服务器的电脑里，怎么能将text.xls改到本地电脑里，请高手帮忙。

有两种方法：
1、通过 WINSOCK ，把这个 XLS 上传到 服务器上再执行。 或者开 FTP 上传也行。
2、自己读这个 XLS ，然后生成每一条 SQL 命令，传到 服务器上 进行执行。
3、把XLS 的内容，复制成文本，传给服务器端，然后再生成具体的SQL 执行。

实现起来，速度最快的是 第1种，其次是第3种，最慢的是第二种。第二种慢的读 XLS 文件上面。
实现起来，代码最简单的，是第1种，使用FTP上传。其次是 第3种传文本。