Visual Basic - No puedo Conectarme

Hola amigos del foro.. Estoy haciendo una rutina para que en una base de datos hecha en Access validen los registros pero lo que sucede es que no puedo hacer la conexion ya que me marca un error que dice que "no se puede utilizar la conexion para realizar esta operación, está cerrada o no es válida en este contexto" el codigo es el siguiente:

Option Explicit
Private cnn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub cmdAltas_Click()

Dim buscar As String
Const sPathBase As String = "C:\Lobo\Programas\Unidad de Medida.mdb"

'crear los objetos
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With

rs.Open "SELECT Codigo de Unidad FROM Medidas WHERE Codigo de Unidad = " ' & txtCodigoUnidad & "'", cnn ( Aquí es donde me marca el error )

buscar = "Codigo de Unidad" & txtCodigoUnidad.Text

With rs
.MoveFirst
.Find (buscar)
If Not .EOF Then
MsgBox (" Ya existe ese Codigo")
Exit Sub
End If

End With

End Sub

No se que me falta o que estoy haciendo mal... Pero estoy bien desorientado pues entre mas le busco mas se me complica esto.. Gracias y Saludos al foro

public Cnn = New ADODB.Connection
public rs = New ADODB.Recordset

With Cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=c:\sueldos\temp.mdb;Persist Security Info=False"

.CommandTimeout = 360
.ConnectionTimeout = 360
.Open
End With

With Rs
.ActiveConnection = Cnn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source ="SELECT Codigo de Unidad FROM Medidas WHERE Codigo de Unidad ='" & txtCodigoUnidad & "'"
.Open
End With