Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
 cn.CursorLocation = adUseClient
 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\钢网清单.xls;Extended Properties='Excel 8.0;HDR=Yes'"
If rs.State = adStateOpen Then rs.Close
 rs.Open "select * from [sheet1$]", cn, adOpenDynamic, adLockOptimistic
 Set DataGrid1.DataSource = rs
 DataGrid1.AllowUpdate = True