hola me gustaria que me ayudaran mi problema es este .
yo tengo un combo box y lo lleno con los datos que tengo a una tabla a una base de datos lo que yo quiero hacer es un filtro
que amedida que dijite una letra me muestre la informacion que contenga la letra .

No entiendo bien tu pregunta. El combobox selecciona de forma automática al ir tecleando en él, si es de estilo dropdown claro, qué es lo que pretendes ¿que te seleccione ese registro y muestre el resto de la información? Si es eso lo tienes que programar en el evento SelectionChangeCommitted, por ejemplo
:smt004

__________________
Angeles
-------------------------------------
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Te dejo este codigo aver si te sirve de ayuda, es para filtrar con combobox.

Option Explicit

'Función Api SendMessageLong

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Backspaced As Boolean 'Flag

Private Sub Combo1_Change()
'Le pasamos el combo como parámetro
AutoComplete Combo1
End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyBack, vbKeyDelete

Select Case Len(Combo1.Text)

Case Is <> 0
Backspaced = True

End Select
End Select

End Sub

'Función para autocompletar el combo.
Public Function AutoComplete(ctlComboBox As Control)
Dim i%, intSel% '

Select Case (Backspaced Or Len(ctlComboBox.Text) = 0)
Case True: Backspaced = False: Exit Function
End Select

With ctlComboBox
'RECORREMOS LOS ITEMS DEL COMBO BUSCANDO LA COINCIDENCIA
'DE LO QUE HAYA ESCRITO
For i = 0 To .ListCount - 1
If InStr(1, .List(i), .Text, vbTextCompare) = 1 Then
intSel = .SelStart
.Text = .List(i)
.SelStart = intSel
.SelLength = Len(.Text) - intSel
Exit For

End If
Next i
End With

End Function

Private Sub Combo1_KeyPress(KeyAscii As Integer)

'Esta linea es para que se despliegue la lista mientras escribimos _
pero si presionas la teclaEnter hacemos lo contrario, la cerramos _
fijate que esto lo determina la variable booleana TRue y False _
en el 3º parametro de la funcion APi
Dim resp As Integer

'Si se presionó enter
If KeyAscii = 13 Then
SendMessageLong Combo1.hwnd, &H14F, False, 0
Else
'Si no siempre la lista desplegada
SendMessageLong Combo1.hwnd, &H14F, True, 0
End If
End Sub

Private Sub Form_Load()

'Llenamos el combo con algunos elementos

With Combo1
.AddItem "Pedro"
.AddItem "Marcelo"
.AddItem "Mariano"
.AddItem "Carolina"
.AddItem "Jose"
.AddItem "Maria"
.AddItem "Estela"
.AddItem "Fernando"
.AddItem "Rodrigo"
End With

End Sub

__________________
**El destino no esta escrito, cada uno marca el suyo