Visual Basic - Problemas al ejecutar una sentencia SQL

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.

fijate que el motor te permita abrir el recordset en forma exclisiva como lo estas haciendo, sino al adoRs.CursorType ponelo como opendynamic, la verdad que otra csa no se me ocurre.
salu2

Muchas gracias por tu ayuda, pero no es eso, ya que lo intenté y aún sigue teniendo el mismo problema.