Problemas al asignar recordset a un formulario

De antemano a todos. Soy principiante en el access y vba. Me está intersando mucho incursionar en ADO y recordset. Me han surgido varios problemas con los formularios y a continuación le expongo el que tengo ahora:

En este caso específico, luego de establecer el recordset del formulario, no logro enfocar un control. De veras no se donde queda el foco en la aplicación. Todo trabaja perfecto. Está descartado que es cuando establezco el valor del recordset.

En el evento al cambiar de un cuadro de texto, realizo una modificación de la sql que da origen al recordset. Automáticamente lo asigno, pero no logro establecer el foco en el cuadro de texto. Se pierde en la aplicación.

Private Sub CT_BuscarSiglas_Change()
On Error Resume Next

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim Texto As String
'
Texto = Nz(CT_BuscarSiglas.Text, "%")
'
cnn.Open DB
sql = SelecciónSQL(Texto, "Proveedores", "SiglasEntidad")

'rs.Open sql, cnn, adOpenKeyset, adLockReadOnly

'Si se usa la barra espaciadora se cancela el procedimiento
If Asc(Right(Texto, 1)) = 32 Then Exit Sub
'
rs.CursorLocation = adUseClient
rs.Open sql, cnn, adOpenKeyset, adLockReadOnly

'Si no hay registros en la consulta cancelar el procedimiento
If rs.EOF And rs.BOF Then
MsgBox "Ese texto no existe"
Exit Sub
End If
'
Set Me.Recordset = rs
'
DoCmd.Requery
'
'
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing

DoCmd.GoToControl "Forms!F_Proveedores"
'Me.SetFocus
Me.CT_BuscarSiglas.SetFocus
Me.CT_BuscarSiglas.SelStart = Len(Texto)

End Sub

Añade tu respuesta

Haz clic para o