Dim oConn As New ADODB.Connection Dim adoRecordset As New ADODB.Recordset oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Book1.xls;" & _ "Extended Properties=""Excel 8.0;""" adoRecordset.CursorLocation = adUseClient adoRecordset.Open "select * from [sheet1$]", oConn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource =adoRecordset
Dim adoRecordset As New ADODB.Recordset
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Book1.xls;" & _
"Extended Properties=""Excel 8.0;"""
adoRecordset.CursorLocation = adUseClient
adoRecordset.Open "select * from [sheet1$]", oConn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource =adoRecordset
http://support.microsoft.com/default.aspx?scid=kb;EN-US;278973