想用 vb实现excel表格导入access数据库。

Private Sub Command1_Click()
If Combo1.Text = "" Then
    MsgBox "请选择导入数据！", vbInformation, "提示"
Else
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & App.Path & "\dm.mdb;Persist " & "Security Info=False;Jet OLEDB"
    cn.Execute "SELECT * INTO sbjbztb from [Sheet1$] IN IN " & Combo1.Text & "into sbjbztb"" ""EXCEL 8.0;"""
end if

End Sub

执行后总是 cn.Execute "SELECT * INTO sbjbztb from [Sheet1$] IN IN " & Combo1.Text & "into sbjbztb"" ""EXCEL 8.0;"""
这句出错.错误是from子句语法错误。

---

多个IN

---

语法原型是：
sql = "SELECT * INTO sbjbztb from [Sheet1$] IN ""d:\youXls.xls"" ""EXCEL 8.0;"""
你现在IN子句中还有into，不知道你什么意思，想实现什么？

---

cn.Execute "SELECT * INTO sbjbztb from [Sheet1$] IN " & Combo1.Text & """ ""EXCEL12.0;"""

我的原句是这样的，上面那个是粘的时候粘错了

---

友情UP

---

try:
cn.Execute "SELECT * INTO sbjbztb from [Sheet1$] IN """ & Combo