利用adodc和datagrid读取excel文件

现在窗体上拖放datagrid和adodc，需要从〔工程〕菜单的〔部件〕中选择

Private Sub Form_Load()
Dim connStr, AccessLocation As String
AccessLocation = "F:/test.xls"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessLocation & ";Extended Properties=Excel 8.0;"
Adodc1.ConnectionString = connStr
Adodc1.CommandType = adCmdText
Dim cmd As String
cmd = "Select * from [Sheet1$] where 姓名='张三'"
cmd = "Select * from [Sheet1$]"
Adodc1.RecordSource = cmd
Adodc1.Refresh
With Adodc1.Recordset
.AddNew
.Fields("姓名").Value = "Joe"
.Update
.Fields("年龄").Value = 1
.Update
End With

Adodc1.Recordset.MoveLast
Set DataGrid1.DataSource = Adodc1