Visual Basic - mas datos

si les sirve aca esta el codigo ke uso para hacer la buskeda y ke me devuelva los resultados en un listbox
////////
Dim datas As Database
Dim reg As Recordset
Dim cons As String
Dim A As String

A = Combo2

Set datas = OpenDatabase("c:\Videos.mdb")
cons = "SELECT CODIGO, TITULO, GENERO FROM TABLA1 WHERE " + A + " LIKE'"
cons = cons + Text1.Text + "*'"
Set reg = datas.OpenRecordset(cons, dbOpenSnapshot)
Do While Not reg.EOF
If reg.NoMatch Then
Label2.Caption = "no se encontro"
Else
List1.AddItem reg!CODIGO + " " + Chr(13) + " " + reg!TITULO + " " + Chr(13) + " " + reg!GENERO
reg.MoveNext
End If
Loop
////////////

otra pregunta... como puedo hacer para ke buske una determinada palabra en todos los campos ???

Gracias