Fila actual no disponible datagrid

Estrambotica
09 de Julio del 2004
hola chico tengo este detalle estoy haciendo un filtro para llenar un datagrid y me sale el mesaje de "fila actual no disponible" y luego es sistema sigue su rutina normal como hago para q no salga ese mensaje?
este el codigo q utilizo!!! :-)


Creo q es por q lo cierro para hacer una nueva seleccion!!! pero no estoy segura q puedo hacer?


Private Sub Text1_LostFocus()

If rst10.State = 1 Then
rst10.Close
End If

If opcion = 1 Then
On Local Error Resume Next
rst10.CursorLocation = adUseClient
rst10.Open "select NOM_prov from proveedor WHERE mid(NOM_prov,1," & letraa & ")= '" & Mid(Me.Text1, 1, letraa) & "'order by NOM_prov", dbcomp, adOpenStatic
Set DataGrid1.DataSource = rst10.DataSource
End If
END SUB