vb excel导入到sql server

       CommonDialog2.ShowOpen

 xf = Trim(CommonDialog2.filename) 

If xf = "" Then Exit Sub   

sql = "delete FROM frmsy_syform"      

      Set mrc = exesql(sql)   

 Set mrc = Nothing 

Dim cn  As New ADODB.Connection       

   cn.CursorLocation = adUseClient      

        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & xf & ";Extended Properties='Excel 8.0;HDR=Yes'"       

       cn.Execute ("insert   INTO   [odbc;Driver={SQL Server};Server=" & Trim(serverip) & ";Database=xzjsgc; UID=" & Trim(serverus) & ";PWD=" & Trim(serverpsd) & "].frmsy_syform select   *   FROM   [frmsy_syform$]")          cn.Close        

  Set cn = Nothing       

   MsgBox "导入成功"