ayuda con eof y bof ambas igual true

[r_arcexxi]

Soy nuevo en esto de la programacion y tengo en un form cuando uso el boton guardar ejecuta entre otras cosas:

id = retornaConsulta("SELECT sum(TIQUETE_PRECIO)FROM tb_tiquete WHERE TIQUETE_JORNADA = '" & frm_tiquete.tiq_txt_jor.Text & "' AND TIQUETE_COMPRADOR = '" & frm_tiquete.tiq_txt_user & "'")

frm_tiquete.tiq_txt_din.Text = id


retornaConsulta es una funcion que ejecuta secuencias sql

Public Function retornaConsulta(SQL As String) As String

On Error Resume Next

' Obtiene los registros
Set rsConsulta = New ADODB.Recordset
rsConsulta.CursorLocation = adUseServer
rsConsulta.Open SQL, cnxBaseDatos, adOpenStatic, adLockReadOnly

If Not (rsConsulta.EOF And rsConsulta.BOF) Then

retornaConsulta = rsConsulta(0) & ""

End If


' cierra los recordset y la conexion.
rsConsulta.Close

If Err.Number Then
MsgBox "Error:" & Err.Number & vbCrLf & _
"Descripción: " & Err.Description, vbCritical
End If

End Function


El problema es que en una maquina diferente a la mia el campo frm_tiquete.tiq_txt_din.Text si toma el valor de id, es decir la suma del campo precio, pero en mi maquina el campo es vacio, al ejecutar paso a paso me muestra que

rsConsulta.EOF And rsConsulta.BOF tienen valor true, osea el recordset esta vacio


¿Por que solo en mi maquina? uso el mismo controlador odbc 3.51 que en la otra maquina y caso todo es lo mismo, es algo que me tiene desconcertado, gracias por su ayuda