Access - manejo de comando

Dim b As Integer

Dim a As String

a = InputBox("digite nombre compania ")

b = InputBox("digite numero de sorteo")

If COMPANIA = a And numero_sorteo = b Then

DoCmd.OpenReport "loteria", acPreview

DoCmd.RunCommand acCmdZoom100

End If

Private Sub Comando16_Click()

Dim a

Dim b

a = InputBox("digite nombre compania")

Me.Compania = a

b = InputBox("digite numero de sorteo")

Me.numero_sorteo = b

If (Compania = "a") And (numero_sorteo = "b") Then

Me.Refresh

DoCmd.OpenReport "loteria", acPreview

DoCmd.RunCommand acCmdZoom100

Else

MsgBox ("Los datos introducidos no son correctos"), vbInformation

Me.Compania = ""

Me.numero_sorteo = ""

End If

End Sub