Bir MySQL işlem örneği.
İlk sorgu ile Tablo içindeki alanlara Excel sayfasından şartlı veri gönderiliyor.
Sonraki kontrolde, yollanmış olan verilerin E ile başlamamaması durumunda silinmesi isteniyor.

Sub MySQL_DegerGuncelle()
Dim con As Object, Kitap As Workbook, Sayfa As Worksheet
  Dim Hucre As Range, Deger As String, Sorgu As String
    Set Kitap = ThisWorkbook
    Set Sayfa = Kitap.Worksheets("Datalarım")
        With Sayfa
            Set Hucre = .Range("A1")
                Deger = Hucre.Value
        End With
    Set con = CreateObject("ADODB.Connection")
    ' Kullanıcı ve parola gerektirmiyorsa boş bırakınız
        con.ConnectionString = "DRIVER={MySQL};" & "SERVER=sunucunuz;" _
            & "DATABASE=veritabanınız;" & "UID=kullanıcı;PWD=parola;OPTION=3;"
    con.Open
Sorgu = "UPDATE Tablo SET Alan1 = '" & Deger & "' WHERE Alan2 ='Excel'"
  con.Execute (Sorgu)
    Sorgu = "DELETE FROM Tablo WHERE Alan2 NOT LIKE 'E%'"
      con.Execute (Sorgu)
        con.Close
          Set con = Nothing
End Sub

alıntıdır....(kaynak:excelvba.net)