Excel ADO ADODB update named range

works for single cell

Sub test() 
strFile = "D:\1.xlsb" 

Dim cn As ADODB.Connection 
Dim cmd As ADODB.Command 
Dim rs As ADODB.Recordset 
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & _ ";Extended Properties=""Excel 12.0;HDR=No;Readonly=True""" 

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 
cn.Open strCon 

'check current value: 
sqlm = "SELECT * FROM namedRange" 
rs.Open sqlm, cn 
m = rs.GetString 
Debug.Print m 

'update single cell
Set cmd = New ADODB.Command 
cmd.ActiveConnection = cn 
cmd.CommandType = adCmdText 
cmd.CommandText = "update namedRange set F1 = '123456789'" 
cmd.Execute 
End Sub