Ayuda con este problema por favor

bali
31 de Julio del 2003
Tengo un formulario llamado "Menu Estadisticas" con un cuadro combinado que muestra ul listado de distribuidores y esta formado por la siguiente instrucción:

SELECT Distribuidores.Id_Empresa, Distribuidores.Distribuidor FROM Distribuidores ORDER BY Distribuidores.Distribuidor;

Mi intención es que al actualizar el cuadro combinado se realizen las siguientes funciones:

Comprobar si la Id_empresa de este formulario y el del formulario "Estadisticas Distribuidor" es la misma. Si es correcto cerrar el formulario actual y abrir el formulario "Estadisticas distribuidor" filtrado por la Id_Empresa. y si no es correcto, que aparezca un MsnBox con un texto y un comando vbOk, al pulsar sobre el comando vbOK, tendría que volver a abrir el cuadro "Estadisticas Distribuidor"

Este es el código que estoy utilizando, pero tiene que haber un error que no soy capaz de encontrar, a ver si podeís ayudarme pues no se que puede fallar. Como datos os comento que utilizo en Access XP. Gracias

Private Sub Cuadro_combinado0_AfterUpdate()
Dim stDocName As String
Dim stLinkCriteria As String
Dim a As String
Dim Origen As String

stDocName = "Estadisticas_Distribuidor"
stLinkCriteria = "[Id_Empresa]=" & Me![Cuadro combinado0]
Origen = [Form_Menu Estadisticas]

If [Form_Estadisticas_Distribuidor].[Id_Empresa] = [Cuadro combinado0] Then
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
If MsgBox("No hay estadísticas de esta Empresa") = vbOK Then
DoCmd.OpenForm Origen
End If
End If
End Sub