我想实现如下程序
1.选择文件：单击选择文件后 text1下显示选择的文件路径，选择的文件类型为txt和excle。----我已完成
2.导入文件：单击导入后 将显示在text1的文件导入到sql，而我网上找的代码，文件路径是写死在程序里的。我把Database=e:\my program\ceshi.xls改成Database=text1就报错代码如下
Private Sub Command3_Click()
  If Len(Text2.Text) = 0 Then
        MsgBox "请选择数据！", vbInformation, "提示"
      Exit Sub
    End If
   
mst = "PROVIDER=MSDASQL;DRIVER={SQL SERVER};SERVER=(local);UID=sa;PWD=wxjrdz;DATABASE=work" '使用SQL SERVER
mrst.Open mst
SQL = "insert into tranamount  select * from  OpenRowSet('Microsoft.Jet.OLEDB.4.0', 'Excel 8.0;HDR=No;IMEX=1;Database=e:\my program\ceshi.xls', 'select * from [Sheet1$]')"
mrst.Execute SQL
MsgBox "导入数据完成"
 
  End Sub
3.在MSHFlexGrid中我将sql里的数据显示出来了，同时实现单击“确定导入”后更新显示MSHFlexGrid里的数据，这样的代码改怎么写？？？？

[ 本帖最后由 coolong 于 2009-8-27 10:18 编辑 ]