SoloCodigo

buen dia tengo un error 94 uso no valido de null
tengo dos option button un texbox dos comand button y un mshflexgrid
el primer option es detalle y el otro es juego
tengo un comand buscar y catalogo
y el textbox se llama txtbusca

se supone que si presiono cualquiera de los dos option y le doy en mi boton catalogo
tendira que aparecer mi tabla que yo seleccione,ya que antes habia enlazado una base de datos
y me da ese error
despues con los  option presiono cualquiera de los dos  , en  el txtbusca pongo un codigo que este en la tabla que yo seleccione
le doy en el boton buscar y tendria que aparecer la tabla selecionada con solo el codigo que yo ingrese en el texbox pero me da ese error de nuevo
este es el codigo
Private Sub catalogo_Click()
txtbusca.Text = ""
If Option1 = True Then
Call detalle
ElseIf Option2 = True Then
Call juego
End If
End Sub
Public Sub numero()
Dim n As Integer
For n = 0 To 1
MSHFlexGrid1(n).Visible = False
Next n
End Sub
Private Sub buscar_Click()
Dim z As String
Dim GT As ADODB.Recordset
Call numero
If Option1 = True Then
MSHFlexGrid1(0).Visible = True
MSHFlexGrid1(0).FormatString = "^cod_juego|^nombre_juego|^descripcion_juego|^precio_unitario|^fecha_entrada|^fecha_salida"
z = " select *from detalle where cod_juego = (" & txtbusca.Text & ") "
Set GT = New ADODB.Recordset
Set GT = conexion.Execute(z)
MSHFlexGrid1(0).Rows = 1
While Not GT.EOF
   MSHFlexGrid1(0).AddItem (Str(GT!cod_juego) + vbTab + GT!nombre_juego + vbTab + GT!descripcion_juego + vbTab + Str(GT!precio_unitario) + vbTab + Str(GT!fecha_entrada) + vbTab + Str(GT!fecha_salida))
   GT.MoveNext
Wend
ElseIf Option2 = True Then
MSHFlexGrid1(1).Visible = True
MSHFlexGrid1(1).FormatString = "^cod_juego|^fecha_entrada|^fecha_salida|^precio|^nombre_juego|^descripcion"
z = "select *from juego where cod_juego = (" & txtbusca.Text & ") "
Set GT = New ADODB.Recordset
Set GT = conexion.Execute(z)
MSHFlexGrid1(1).Rows = 1
While Not GT.EOF
    MSHFlexGrid1(1).AddItem (Str(GT!cod_juego) + vbTab + Str(GT!fecha_entrada) + vbTab + Str(GT!fecha_salida) + vbTab + Str(GT!precio) + vbTab + GT!nombre_juego + vbTab + GT!descripcion)
   GT.MoveNext
Wend
End If
End Sub

Private Sub Form_Load()
Call conecta
Label1.Caption = "ingrese codigo registro de la tabla a buscar"
End Sub
Public Sub juego()
Dim z As String
Dim GT As ADODB.Recordset
Call numero
MSHFlexGrid1(0).Visible = True
MSHFlexGrid1(0).FormatString = "^cod_juego|^fecha_entrada|^fecha_salida|^precio|^nombre_juego|^descripcion"
z = " select *from juego "
Set GT = New ADODB.Recordset
Set GT = conexion.Execute(z)
MSHFlexGrid1(0).Rows = 1
While Not GT.EOF
   MSHFlexGrid1(0).AddItem (Str(GT!cod_juego) + vbTab + Str(GT!fecha_entrada) + vbTab + Str(GT!fecha_salida) + vbTab + Str(GT!precio) + vbTab + GT!nombre_juego + vbTab + GT!descripcion)
   GT.MoveNext
Wend
End Sub
Public Sub detalle()
Dim z As String
Dim GT As ADODB.Recordset
Call numero
MSHFlexGrid1(1).Visible = True
MSHFlexGrid1(1).FormatString = "^cod_juego|^nombre_juego|^descripcion_juego|^precio_unitario|^fecha_entrada|^fecha_salida"

z = "select *from detalle"
Set GT = New ADODB.Recordset
Set GT = conexion.Execute(z)
MSHFlexGrid1(1).Rows = 1
While Not GT.EOF
   MSHFlexGrid1(1).AddItem (Str(GT!cod_juego) + vbTab + GT!nombre_juego + vbTab + GT!descripcion_juego + vbTab + Str(GT!precio_unitario) + vbTab + Str(GT!fecha_entrada) + vbTab + Str(GT!fecha_salida))
   GT.MoveNext
Wend
End Sub
ayudenme por favor