Visual Basic para Aplicaciones - Function con ODBC no me funciona

Sres estoy haciendo una funcion, esta consiste que vaya a buscar uno numero de despacho a una base de datos externas mediante odbc, lo encuentra pero no me muestra el resultado en la celda de destino.
aqui le muestro el codigo

Function SIGAD(numero)
Dim cnDB As New ADODB.Connection
Dim rsRecords As New ADODB.Recordset
cnDB.Open "EDITRADEUSU" ' ODBC
rsRecords.Open "Select * from sga_DI1 where id_DI =" & numero, cnDB
'If Not rsRecords.EOF Then
' MsgBox rsRecords("NOMBRE_CLIE"), vbOKOnly
CLIENTE = rsRecords("NOMBRE_CLIE")
' MsgBox CLIENTE, vbOKOnly
' Else

' MsgBox "No encontrada", vbOKOnly
'CLIENTE = "NO encontrado"
'End If

rsRecords.Close
Set rsRecords = Nothing
cnDB.Close
Set cnDB = Nothing

en la celda me coloca un cero como resultado