[Excel] VBA truy vấn SQL Insert, update

Sub sql_query()
Dim sql As String
On Error Resume Next
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

With cn
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;"";"
    .Open
    .CommandTimeout = 0
End With

'Câu lệnh SQL'insert
'sql = "INSERT INTO data_01(Rep,Item) VALUES ('aa','bb')"
'update
'sql = "update data_01 set data_01.insert = 5 where data_01.Region = 'Danang'"
'Tạo inputbox để nhập truy vấn SQL sql = InputBox("SQL string") 'Thực thi câu lệnh cn.Execute sql 'Đóng csdl rs.Close: cn.Close: Set rs = Nothing: Set cn = Nothing End Sub