Olá...Faça assim
Private Sub cmdConexaoBD()
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
'define a conexão com o banco de dados Northwind.mdb
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SeuBanco.mdb"
cn.Open
'define um novo objeto recordset
Set rs = New ADODB.Recordset
'define a instrução sql
sql = "UPDATE [SuaTabela] Set [nome] = 'Novo Valor' WHERE [id] = 1"
'gera o recordset para o sql sobre a conexao definida
rs.Open sql, cn
'fecha conexão
cn.Close
End Sub
Nessa instrução sql ele atualiza o campo nome para 'Novo valor' cujo id do registro seja igual a 1
Até...
Se solucionar marque como resposta..