Private Sub Form_Load()
Set con = New Connection
con.Open "provider=microsoft.jet.oledb.4.0; data source=t.xls;Extended Properties=Excel 8.0;"
Set re = New Recordset
re.Open "select * from x", con, adOpenDynamic, adLockBatchOptimistic
Set datagrid1.DataSource = re