Dim adoConn as object
Dim RS as object
Dim TableRS as object
Dim strConString as string
Dim FileName as String
Set adoConn = createobject("ADODB.CONNECTION")
Set RS = CreateObject("ADODB.Recordset")
Set TableRS = CreateObject("ADODB.Recordset")
'To be used to enumerate the worksheets in Excel
Path = "C:\MyPath\"
FileName = "MyFile.xls"
DataFile = Path & FileName
StrConString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _
DataFile & ";" & _
"Extended Properties=""Excel 8.0;HDR=Yes"""
adoConn.open strConString
set TableRS = adoConn.OpenSchema(20) 'Get Sheet List
'Enumerate these by looping through the TableRS recordset as normal
SheetName = TableRS.Fields("TABLE_NAME")
SQL = "Select * from [" & SheetName & "$] Where [F1] = #" & MyDate & "#"
RS.open SQL, adoConn, 2,3 'adOpenDynamic, adLockOptimistic
RS.Fields(1).Value = MyValue
RS.update
RS.Close
TableRS.close
adoConn.close