Dim strSQL As String
  Dim cn As New Connection
  Set conn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=f:\book1.xls;Extended Properties=Excel 8.0"
  strSQL = "SELECT * INTO custome from [Sheet1$]"
  conn.Open "Provider=SQLOLEDB.1;Password=sa123;Persist Security Info=true;User ID=sa;Initial Catalog=CQM-DPBDB;Data Source=CQ"
  cn.Execute strSQL, conn, adExecuteNoRecords
  MsgBox "导入成功!"程序提示导入成功,而且第二次运行提示custome表已经存在,可是数据库中并没有
建立这个表,到底那里的问题????