Visual Basic - AYUDA CON ESTA QUERY

ESTA QUERY M DA ERROR ---> EL OBJETO NO ACEPTE ESTA PROPIEDAD SI ESTA CERRADO Y N ENTIENDO PQ
Dim sql As String
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Mis documentos\sergio\cenita_SL\cenita.mdb"
'abro tabla
Set tablaempresas = New ADODB.Recordset
sql = "select * from empresa where CIF_NIF='" & buscaCIF & "'"
--->ERROR--->tablaempresas.Open sql, cnn, adOpenDynamic, adLockOptimistic
If tablaempresas.RecordCount = 0 Then
existeempresa = 1
insercion = 1
Else
insercion = 0
End If

Prueba de esta otra forma:
dim cnn as new Adodb.connection
dim tablaempresas as new adodb.recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Mis documentos\sergio\cenita_SL\cenita.mdb"
sql = "select * from empresa where CIF_NIF='" & buscaCIF & "'"
tablaempresas.Open sql, cnn, adOpenDynamic, adLockOptimistic