Dim mycon As ADODB.Connection
Dim connstring As String
Dim rst As ADODB.RecordsetPrivate Sub Form_Load()
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=c:\yeli.xls;Mode=Share Deny None;Extended Properties=Excel 11.0"
Set mycon = New ADODB.Connectionmycon.Open connstring
 Set DataGrid1.DataSource = myconEnd Sub
  想直接读取execl文件的数据,代码有误?:找不到可以安装的isbm?