Error Data access

I have the follow code:

    Set con = New ODBCConnection

Set qry = New ODBCQuery

Set result = New ODBCResultSet



Set qry.Connection = con

Set result.Query = qry	



user="app"

passw="client"

ds="EVALYDES"



    con.ConnectTo(ds,user,passw)



Dim campo As String



qry.SQL = "SELECT EMPNOMBRES FROM LiDa_2000.dbo.Empleados WHERE EMPEMPLEADO='002853'"

res= result.Execute

If result.IsResultSetAvailable Then

  campo= result.getvalue("EMPNOMBRES")

End If	

The Server is SQL 2000, THE db = LiDa2000, the table = Empleados, the column = EMPNOMBRES.

the EMPNOMBRES column type is NVARCHAR in SQL,but I can’y get he EMPNOMBRES value. When I do that with a column of type char or varchar, I can get the column value.

The connection is successfull, but the resultset don’t bring any value.

Could someone help me.

Thanks.