Dim miSql As String
Private Sub Cuadro_combinado113_Change()
   Dim PALABRA As String

   PALABRA = Cuadro_combinado113.Text

   If Len(Nz(PALABRA, "")) = 0 Then   
      MiSql= "SELECT [Vias].[Via] FROM Vias;"  
      PresentarSeleccion
      Exit Sub
   End If
   miSql = "Vias.Via LIKE ""*" & PALABRA & "*"""
   miSql = "SELECT [Vias].[Via] FROM Vias" & _
         " HAVING/WHERE " & miSql & " ORDER BY Vias.Via;"   
   PresentarSeleccion
End Sub

Private Sub Cuadro_combinado113_Enter()
   Cuadro_combinado113.Dropdown
End Sub

Sub PresentarSeleccion()
   Cuadro_combinado113.RowSource = miSql   
End Sub

Private Sub Cuadro_combinado113_Change()
Dim strSQL As String
If Len(Me.Cuadro_combinado113.Text) > 0 Then
strSQL = "SELECT Vias.Via FROM Vias WHERE (((Vias.Via) Like '*" & Me.Cuadro_combinado113.Text & "*')) ORDER BY Vias.Via;"
Else
strSQL = "SELECT Vias.Via FROM Vias ORDER BY Vias.Via;"    
End If
Me.Cuadro_combinado113.RowSource = strSQL
Me.Cuadro_combinado113.Dropdown
End Sub