Visual Basic - hacer referencia

hola amigos... tengo el siguiente codigo....y form....
la idea es ocupar el mismo para 4 llamadas de este form pero con 4 tablas distintas... que son llamados
de otros form... los cuales trabajan con tablas distintas
existe alguna posibilidad de algun tipo de comodin
para hacer referencia a las tablas y a los form de donde se esta llamando a este proceso....

ver segunda parte del codigo.....
gracias...

---------------------------------------------------------------------------------------
Dim TCadena As Variant
Private Sub TxtBuscarNombre_Change()
Set RsTemporal = BdPeliculas.OpenRecordset("Select * From CATEGORIA")
If RsTemporal.RecordCount > 0 Then
LstCodigo.Clear
LstNombre.Clear
RsTemporal.MoveFirst
TCadena = Len(TxtBuscarNombre.Text)
While Not RsTemporal.EOF
CadenA = Mid(RsTemporal(1), 1, Len(TxtBuscarNombre.Text))
If UCase(CadenA) Like UCase(TxtBuscarNombre.Text) Then
LstCodigo.AddItem RsTemporal(0)
LstNombre.AddItem RsTemporal(1)
End If
RsTemporal.MoveNext
Wend
End If
End Sub
----------------------------------------------------
Private Sub LstCodigo_DblClick()
numero = LstCodigo.List(LstCodigo.ListIndex)
RsCategorias.FindFirst " Codigo_Categoria=" & numero
If RsCategorias.NoMatch = False Then
FrmCategoria.MostrarRegistros
Unload Me
End If
End Sub