\vbexcel转换为mdb

vb-excel转换为mdbPrivateSubText1_DblClick()CDlg.DialogTitle="打开EXCEL文件"CDlg.Filter="所有EXCEL文件|*.xls"CDlg.ShowOpenIfCDlg.FileName=""ThenExitSubText1.Text=CDlg.FileNameIfConn.State=adStateOpenThenConn.CloseConn.Open"Provider=Microsoft.Jet.OLED