Gran Duda!

Saludos Señores del Foro necesito una ayuda urgente, estoy tratando de
realizar esto:

Private Sub DBGrid2_DblClick()
Dim x1 As String
x1 = Trim$(DBGrid2.Columns(0).Value)
If x1 <> "" Then
DBGrid2.Visible = False
CrystalReport1.ReportFileName = "C:\Archivos de programa\SINA\Cosas
de Visual\proyecto\ca.rpt"
CrystalReport1.DataFiles(0) = "C:\Archivos de programa\SINA\Cosas
de Access\Igls.mdb"
CrystalReport1.Destination = crptToWindow
CrystalReport1.SelectionFormula = "{Alumno_Catedra.N_Catedra}= '"

x1 & "'"
CrystalReport1.Action = 1
End If
End Sub


pero me da un error "20515" A number is required here.
quisiera saber como puedo realizar hacer funcionar esto, el campo de
N_Catedra es numerico!

Gracias por responder.

Saludos Señores del Foro necesito una ayuda urgente, estoy tratando de
realizar esto:

Private Sub DBGrid2_DblClick()
Dim x1 As String
x1 = Trim$(DBGrid2.Columns(0).Value)
If x1 <> "" Then
DBGrid2.Visible = False
CrystalReport1.ReportFileName = "C:\Archivos de programa\SINA\Cosas
de Visual\proyecto\ca.rpt"
CrystalReport1.DataFiles(0) = "C:\Archivos de programa\SINA\Cosas
de Access\Igls.mdb"
CrystalReport1.Destination = crptToWindow
CrystalReport1.SelectionFormula = "{Alumno_Catedra.N_Catedra}= '"

x1 & "'"
CrystalReport1.Action = 1
End If
End Sub


pero me da un error "20515" A number is required here.
quisiera saber como puedo realizar hacer funcionar esto, el campo de
N_Catedra es numerico!

Gracias por responder.