Visual Basic para Aplicaciones - Rellenar un formulario a partir de un ComboBox

Llevo varíos días peleándome con un formulario en Access. Resulta que seleccionas un Laboratorio de un control ComboBox y a partir de allí rellena el resto. De momento únicamente voy para que me muestre la actividad (campo CLASIFICACION de una tabla llamada BaseGeneral). Aquí está el código completo:

Option Compare Database
Private cnn As ADODB.Connection
Private rsTBase As ADODB.Recordset
Private strSQL As String

Private Sub cmbNomLab_Click()
strSQL = "SELECT * FROM BaseGeneral WHERE BaseGeneral.[NOMBRE] LIKE '" & cmbNomLab.Text & "'"
rsTBase.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
txtActividad.SetFocus
txtActividad.Text = rsTBase![CLASIFICACION]
rsTBase.Close
End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rsTBase = New ADODB.Recordset
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.ConnectionString = CurrentDb.Name
cnn.Open
End Sub

Private Sub Form_Unload(Cancel As Integer)
cnn.Close
End Sub

En esta sentencia me da "Se ha producido el error '91' en tiempo de ejecución: Variable de objeto o bloque With no establecido":

rsTBase.Open strSQL, cnn, adOpenKeyset, adLockOptimistic

Sé que es algo que tiene que ver con la variable "cnn" porque el strSQL te situas encima de la linea amarilla y la sentencia es correcta y hasta te ha cambiado el cmbNomLab.Text por el texto que pone en el combobox, así que lo pilla bien, pero ya no sé a qué coño recurrir.
Hasta había pensado declararlo con motor OLESQL pero parecía algo más engorroso..

Prueba puede que te falte decir si es una consulta la conexión o es una conexion a una tabla ????????

rsTBase.Open strSQL, cnn, adOpenKeyset, adLockOptimistic, adCmdText

Nota: adCmdText, para una consulta
Nota: adCmdTable para conectar con una tabla de la base de datos

Todo consistía en la propiedad Fields del objeto que representa la tabla rsTBase. No sé porque saltaría allí pero sea como sea ya funciona :)

strSQL = "SELECT CLASIFICACION FROM BaseGeneral WHERE BaseGeneral.[NOMBRE] LIKE '" & cmbNomLab.Text & "'"
rsTBase.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
txtActividad.SetFocus
txtActividad = rsTBase.Fields(0)
rsTBase.Close