dim pos as long
pos=InStr(1,Text1.text,"viviendas",vbtextcompare)
if pos>0 then
......  'Encontró algo(pos devuelve la posicion)
else
end if

Private Sub command1_click()

Dim bd As Database

Set bd = OpenDatabase("rutadela basededatos.mdb")
Dim Tabla As TableDef

For Each Tabla In bd.TableDefs

Combo1.AddItem Tabla.Name

Next Tabla


End Sub

Private Sub Command1_Click()
Dim i As Long
For i = 0 To List1.ListCount
Open "c:\log2.txt" For Append As #1
Print #1, , List1.List(i)
Close #1
Next
End Sub

Private Sub Form_Load()
Dim z As Integer
For z = 1 To 10
List1.AddItem (z)
Next
End Sub