El Codigo esta correcto, lo unico es que esta incompleto, le falta la cadena de conexion a la base de datos.
Dim Cn As ADODB.Connection, Cmd As ADODB.Command, Rec As ADODB.Recordset
Dim Sql As String
Private Sub Command1_Click()
'Para sql server
cn.connectionstring="provider=SQLOLEDB;DATA SOURCE=Nom Servidor;INITIAL CATALOG=Base de datos;USER ID=usuario sql;PASSWORD=pass usuario sql;DNS=;"
'Para access
cn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ruta y nom del archivo access"
cn.cursorlocation=adUseClient
cn.open
Sql = "UPDATE dbo.MITABLA SET datos = '1' where memb = 'Hacktor'"
set rec=Cn.Execute(sql, , adCmdText)
End Sub
Ese seria mas o menos el codigo para ejecutar esa sentencia y cualquier otra(Delete, Select, etc).
Saludos