Visual Basic para Aplicaciones - Case Sensitive

Por favor si alguien me puede proporcionar codigo fuente de ejemplo sobre como puedo hacer para que a medida que voy escribiendo una palabra en un texbox me vayan apareciendo las diferentes coincidencias con dicha palabra contenida en una tabla de la base de datos.

Esta función puede darte una idea
Deberias llamarla desde el evento OnChange del TextBox

'By JuanC 2004

Public Function tBuscarProximo(Valor As String, Optional Seleccionar As Boolean = False) As Range
Dim cell As Object
Dim i%, A$

Set tBuscarProximo = Nothing
A = Selection.Address

tSeleccionar cTODO ' Funciones particulares
tOrdenar

i = Len(Valor)

Valor = StrConv(Valor, vbLowerCase)

inicio:

For Each cell In Selection
If StrConv(cell.Value, vbLowerCase) Like Valor Then
Set tBuscarProximo = cell
If Seleccionar Then
Application.GoTo Reference:=tBuscarProximo, Scroll:=True
Else: Range(A).Select
End If
GoTo fin
End If
Next cell

If i > 0 Then
Valor = Left(Valor, i) & "*"
i = i - 1
GoTo inicio
Else: Range(A).Select
End If

fin:
End Function

Saludos y buena suerte, desde Buenos Aires, JuanC