Visual Basic - Problemas con la Ejecución de una sentencia

Cuando me conecto, lo hago de la siguiente manera:

sSql = "ODBC;DATABASE=gripen;UID=" & Usuario & ";PWD=" & Clave & ";DSN=gripen"
With adoCnn
.ConnectionString = sSql
.CommandTimeout = 10
.Open
End With

El número de error que retorna es 0, pero al ejecutar un select de la siguiente forma:

sSql = "SELECT UNIQUE(sysdate) Fecha FROM sod_est_pro_ide"

Set adoCmd = New ADODB.Command
With adoCmd
.ActiveConnection = adoCnn
.CommandText = sSql
.CommandType = adCmdText
End With
Set adoRs = New ADODB.Recordset
adoRs.CursorType = adOpenStatic
adoRs.LockType = adLockReadOnly
Set adoRs = adoCmd.Execute

El rdoRs.RecordCount es -1, y yo lo único que estoy obteniendo es una fecha.

Alguien me podría ayudar, por favor, ya que es urgente!!!

Gracias.

si me preguntas por que... te digo: "nose"

pero la solucion de ese problema es en como haces la apertura de la conexion
cambia----adoRs.LockType = adLockReadOnly
por----------adoRs.LockType = adLockOptimistic

y te va a funcionar el recordcount