Visual Basic - Ayuda por fis

Antes que nada les explicare lo que quiero hacer para que me entiendan:

Primeo tengo dos Form:
uno se llama Salida
y otro Busqueda

--en el primer form de Salida tengo dos textbox y un msflexgrid y un boton de buscar
--en el segunfo un text box y msflexgrid

Lo que pretendo hacer es lo siguiente cuando este en el primer textbox y por ejemplo que no me acuerde del nombre del alumno entonces hago click en en el boton buscar...me carga el form de busqueda...entonces el texbox de busqueda(form) le doy el nombre a buscar entonces me enlista los nombres parecidos a lo que yo busco, mi problema es lo siguiente: cuando doy enter en una fila o ley doy doble click al nombre que quiero en el msflexgrid me cierra el form de busqueda y me en textbox de salida me debe de poner el nombre seleccionado, no lo logro hacer quisiera saber que estoy aplicando mal.le mando mi codificacion:
PRIMER FORM(SALIDA)

Public folioEncontrado As String

Private Sub cmdBuscar_Click()

frmBuscar.P_Abrir ("SALIDAS")
If folioEncontrado <> "" Then
txtCodigo.Text = folioEncontrado
End If

End Sub

SEGUNDO FORM(BUSQUEDA)

Public DB As Database
Public Rs As Recordset
Public Folio_Encontrado As String
Dim OpcionFuncion As String

Private Sub Form_Load()

If Right(App.Path, 1) = "\" Then
Set DB = OpenDatabase(App.Path + "DBMaster97.mdb")
Else
Set DB = OpenDatabase(App.Path + "\DBMaster97.mdb")
End If
Set Rs = DB.OpenRecordset("Catalogo_Articulo")

End Sub
Private Sub FlexResultado_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
'frmSalidaBodega.folioEncontrado = FlexResultado
Select Case FlexResultado.ColSel
Case 0
'If FlexResultado.RowSel <> FlexResultado.Rows - 1 Then
frmSalidaBodega.folioEncontrado = FlexResultado.TextMatrix(FlexResultado.RowSel, FlexResultado.ColSel)
MsgBox FlexResultado.TextMatrix(FlexResultado.RowSel, FlexResultado.ColSel)
'End If
End Select
End Select
End Sub

Private Sub FlexResultado_DblClick()
Select Case FlexResultado.ColSel
Case 0
If FlexResultado.RowSel <> FlexResultado.Rows - 1 Then
frmSalidaBodega.folioEncontrado = FlexResultado.TextMatrix(FlexResultado.RowSel, FlexResultado.ColSel)

End If
End Select
End Sub

Public Sub P_Abrir(Optional OpcionFiltro As String)
OpcionFuncion = OpcionFiltro
Me.Show
End Sub

espero que me entiendan lo que quiero hacer...es como si quisiera extraer datos de un form a otro form..