Atualizar tabela a partir de formulário - simples!

Bom dia a todos, sou iniciante em Access e estou com um problema simples de ser resolvido, mas estou com muita dificuldade, se possível, alterar para mim e disponibilizar o BD atualizado para que eu possa entender como faz.

No anexo abaixo, tem um formulário com uma caixa de combinação listando os clientes presentes na tabela "tb_cat". O que preciso é que após selecionar o cliente na combo box, o usuário aperte um dos 3 botões disponíveis (cat1;cat2;cat3) para atualizar o campo de categoria do cliente na tb_cat, além de atualizar a data, com a data atual de registro. Tentei fazer de todas as formas, mas sempre da um erro diferente :p.
Basicamente ao apertar cat1, atualize o campo "categoria" com o valor "1", cat2 com "2" e cat3 com "3".

Muito obrigado

Boa tarde,,

Respeite as boas práticas do Access. Campo tipo data para datas, não utilizar nomes reservados, nomear de forma sugestiva, etc

Sobre o seu caso, utilize

Código:

Private Sub cat1_Click()
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '    utilize o código livremente mas mantenha os créditos    '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If MsgBox("Tem certeza que deseja agendar visita?", vbYesNo, "Enviar cliente para agenda") = vbYes Then
        CurrentDb.Execute "UPDATE tb_cat SET categoria='1',Data=Now WHERE cliente='" & Combinação0.Column(0) & "' and vendedor='" & Combinação0.Column(1) & "'"
        MsgBox ("Cliente foi agendado com sucesso!"), vbinformations + vbOKOonly, "Agenda"
        DoCmd.RunCommand acCmdRecordsGoToNext
    End If
End Sub

Private Sub cat2_Click()
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '    utilize o código livremente mas mantenha os créditos    '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If MsgBox("Tem certeza que deseja agendar visita?", vbYesNo, "Enviar cliente para agenda") = vbYes Then
        CurrentDb.Execute "UPDATE tb_cat SET categoria='2',Data=Now WHERE cliente='" & Combinação0.Column(0) & "' and vendedor='" & Combinação0.Column(1) & "'"
        MsgBox ("Cliente foi agendado com sucesso!"), vbinformations + vbOKOonly, "Agenda"
        DoCmd.RunCommand acCmdRecordsGoToNext
    End If
End Sub

Private Sub cat3_Click()
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '    utilize o código livremente mas mantenha os créditos    '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If MsgBox("Tem certeza que deseja agendar visita?", vbYesNo, "Enviar cliente para agenda") = vbYes Then
        CurrentDb.Execute "UPDATE tb_cat SET categoria='3',Data=Now WHERE cliente='" & Combinação0.Column(0) & "' and vendedor='" & Combinação0.Column(1) & "'"
        MsgBox ("Cliente foi agendado com sucesso!"), vbinformations + vbOKOonly, "Agenda"
        DoCmd.RunCommand acCmdRecordsGoToNext
    End If
End Sub