如何导入EXCEL中的数据到MSSQL

Question

用VB6编程,请问如何导入EXCEL中的数据到MSSQL中已存在的表中,有各种数据类型，如字符型，数值型，日期型等。我看了一篇文章:http://community.csdn.net/Expert/topic/4621/4621548.xml?temp=.5011255 但还是做不到。
Private Sub cmdtsdr_Click()
On Err GoTo cmdtsdrerr
If strexcel <> "" Then
    ssql = "insert into [odbc;Driver={SQL Server};" & _
        "Server=dyy;Database=booklib;" & _
        "UID=sa;].图书 " & _
        "select * FROM [Sheet1$]"
    cn.Execute ssql
End If
Exit Sub
cmdtsdrerr:
    MsgBox Err.Description
End Sub
出错，提示“insert into 图书 select * FROM [Sheet1]"
    ssql = "insert into [odbc;Driver={SQL Server};" & _
        "Server=dyy;Database=booklib;" & _
        "UID=sa;].图书”列名无效！
请问怎么才可以呀？

Answer 1

http://blog.csdn.net/zjcxc/archive/2003/12/29/20084.aspx
你去看看^_^