Proyecto en Visual Basic para emplearlo en Microsoft Access. Error de compilación

Hola, tengo un pequeño problema... He desarrollado un pequeño proyecto en visual basic 6 y quisiera utilizarlo en access xp pero a la hora de la verdad no sucede nada y no me indica ningún error de compilación, etc... En VB6 funciona a la perfección, es esto:
Dim A, IFR
Dim B, VFR
Private Sub Command1_Click()
A = 10
B = 35
IFR = 0
IFRP = 0
VFR = 0
VFRP = 0
BANDERA1 = 0
BANDERA1P = 0
BANDERA2 = 0
BANDERA2P = 0
Do While A <= 290 And Text1 <= 290
If A = Text1 Then
IFR = 1
A = 291
BANDERA1 = 1
Else
A = A + 20
End If
Loop
A = 330
Do While A <= 490 And Text1 <= 490 And BANDERA1 = 0
If A = Text1 Then
IFR = 1
A = 491
Else
A = A + 40
End If
Loop
If IFR = 1 Then
If Text2 >= 0 And Text2 <= 179 Then
Command1.Caption = "EL FL INTRODUCIDO ES IFR CON DERROTA IMPAR"
Else
Command1.Caption = "EL FL INTRODUCIDO ES IFR PERO NO EXISTE CON ESA DERROTA"
End If
Else
'AHORA VA LA COMPARATIVA DE LOS VFR IMPARES
Do While B <= 275 And Text1 <= 275
If B = Text1 Then
VFR = 1
B = 276
BANDERA2 = 1
Else
B = B + 20
End If
Loop
B = 300
Do While B <= 500 And Text1 <= 500 And BANDERA = 0
If B = Text1 Then
VFR = 1
B = 501
Else
B = B + 40
End If
Loop
If VFR = 1 Then
If Text2 <= 179 And Text2 >= 0 Then
Command1.Caption = "EL FL INTRODUCIDO ES VFR CON DERROTA IMPAR"
Else
Command1.Caption = "EL FL INTRODUCIDO ES VFR PERO NO EXISTE CON ESA DERROTA"
End If
End If
'AHORA VIENE LOS IFR PARES
A = 20
Do While A <= 280 And Text1 <= 280
If A = Text1 Then
IFRP = 1
A = 281
BANDERA1P = 1
Else
A = A + 20
End If
Loop
A = 310
Do While A <= 510 And Text1 <= 510 And BANDERA1P = 0
If A = Text1 Then
IFRP = 1
A = 511
Else
A = A + 40
End If
Loop
If IFRP = 1 Then
If Text2 >= 180 And Text2 <= 359 Then
Command1.Caption = "EL FL INTRODUCIDO ES IFR CON DERROTA PAR"
Else
Command1.Caption = "EL FL INTRODUCIDO ES IFR PERO NO EXISTE CON ESA DERROTA"
End If
End If
'AHORA VA LA COMPARATIVA DE LOS VFR PARES
B = 45
Do While B <= 285 And Text1 <= 285
If B = Text1 Then
VFRP = 1
B = 286
BANDERA2P = 1
Else
B = B + 20
End If
Loop
B = 320
Do While B <= 520 And Text1 <= 520 And BANDERAP = 0
If B = Text1 Then
VFRP = 1
B = 521
Else
B = B + 40
End If
Loop
If VFRP = 1 Then
If Text2 <= 359 And Text2 >= 180 Then
Command1.Caption = "EL FL INTRODUCIDO ES VFR CON DERROTA PAR"
Else
Command1.Caption = "EL FL INTRODUCIDO ES VFR PERO NO EXISTE CON ESA DERROTA"
End If
End If
End If
End Sub
¿Qué puedo hacer para que me funcione bajo access?... GRACIAS