[Resolvido]Ajuda com código!

Olá pessoal, boa noite!

Tenho um form “FormAbastecimento” estou usando esse código no clique de um botão:

If IsNull(Me.TtalLitros) Then
MsgBox "Preencha o campo total de litros!", vbInformation, "Alerta!"
Cancel = True
Else
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma o abastecimento?", vbYesNo + vbQuestion, "CONFIRMAR!") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("TbCombustivel", dbOpenTable)

With rs1

.AddNew
![DtAbastecimento] = Me.DtAbastecimento
![NmeMotorista] = Me.NmeMotorista
![ModCaminhao] = Me.ModCaminhao
![Placa] = Me.Placa
![TtalLitros] = Me.TtalLitros

.Update

End With

MsgBox "Abastecimento Confirmado.", vbOKOnly + vbInformation, "Concluído"
End If

DoCmd.Close
End If
Me.TtalLitros.SetFocus

Ao clicar para confirmar o abastecimento:
Necessito que o form “FormAbastecimento” seja fechado e cancelado o foco para o campo “Me.TtalLitros.SetFocus”
E se eu negar o abastecimento faça ao contrário:
Cancelando o fechamento do form “FormAbastecimento” e o foco ir par o ““Me.TtalLitros.SetFocus”

Conto com a ajuda dos Senhores!

O irmão Lupércio agradece

Obrigado pessoal, consegui resolver aqui e o código ficou assim:



Private Sub Comando35_Click()

If IsNull(Me.TtalLitros) Then
MsgBox "Preencha o campo total de litros!", vbInformation, "Alerta!"
Cancel = True
Me.TtalLitros.SetFocus
Else



Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma o abastecimento?", vbYesNo + vbQuestion, "CONFIRMAR!") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("TbCombustivel", dbOpenTable)

With rs1

.AddNew
![DtAbastecimento] = Me.DtAbastecimento
![NmeMotorista] = Me.NmeMotorista
![ModCaminhao] = Me.ModCaminhao
![Placa] = Me.Placa
![TtalLitros] = Me.TtalLitros


.Update

End With

MsgBox "Abastecimento Confirmado.", vbOKOnly + vbInformation, "Concluído"

End If

DoCmd.Close
End If

End Sub