Excel VBAでODBC経由で他のExcelにデータを追加したい

オートメーションエラー'-2147467259(80004005)
エラーを特定できません。
でエクセルに書き込めません。

VBA

Private Sub CommandButton3_Click()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    xl_file = "\\SGM653\hopelib\Book2.xlsx"
 
    Set cn = New ADODB.Connection

    'cn.Provider = "MSDASQL"

    cn.ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & "DBQ=" & xl_file & ";"

    cn.Open
 
    Set rs = New ADODB.Recordset
 
    Sql = "INSERT INTO [小児$] ('PATIENTID') VALUES ('333')"
    
    
    'rs.Open Sql, cn, adOpenDynamic, adLockOptimistic
    cn.Execute "INSERT INTO [小児$] ('PATIENTID') VALUES ('333')"
    

    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
 
    
End Sub