how to update record of activeworkbook in ADO?

I use the code for the below,but it can not success. thanks

StrCon1 = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties ='Excel 8.0;HDR=YES;';Data Source='" & ActiveWorkbook.FullName & "'"

Con1.ConnectionString = StrCon1
Con1.Open

tkSQL = "SELECT * FROM[List$]"

Rst1.Open tkSQL, Con1, adOpenStatic, adLockOptimistic

Debug.Print Rst1.RecordCount
Do Until Rst1.EOF
Rst1("Status").Value = "OK"
Rst1.MoveNext
Loop

Rst1.Close
Con1.Close
ThisWorkbook.Save