'declaracion general de variables
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Const strConexion = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\NWIND.MDB"
Dim strQuery As String
Private Sub Text1_Change()
Screen.MousePointer = 11
Set cnn = Nothing
Set rst = Nothing
MSHFlexGrid1.Redraw = False
Set MSHFlexGrid1.DataSource = Nothing
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
strQuery = "SELECT IdCliente, NombreCompañía FROM Clientes WHERE " & _
"NombreCompañía LIKE'" & Trim(Text1.Text) & "%' ORDER BY NombreCompañía"
cnn.Open strConexion
rst.Open strQuery, cnn, adOpenStatic, adLockOptimistic, adCmdText
Set MSHFlexGrid1.DataSource = Nothing
If rst.RecordCount <> 0 Then
Set MSHFlexGrid1.DataSource = rst
Else
MSHFlexGrid1.Clear
MSHFlexGrid1.Rows = 2
End If
rst.Close: cnn.Close
Set cnn = Nothing
Set rst = Nothing
MSHFlexGrid1.Redraw = True
Screen.MousePointer = 1
End Sub
