Private Sub Command1_Click()
Dim cnExcel As New ADODB.Connection
cnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"
cnExcel.Execute ("SELECT * INTO [fhlbyzd] FROM fhlbyzd IN ""d:\cangku\cangku.mdb""")
cnExcel.Close
Set cnExcel=Nothing
End Sub
cnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"
cn.Execute ("SELECT * INTO [fhlbyzd] FROM fhlbyzd IN ""d:\cangku\cangku.mdb""")