No imprime datos es ds

Hola...
Tengo un problemila y debo solucionarlo lo más pronto posible... No se que hacer..
Rengo esta función consultarGuia pero cuando la ejecuto valida el numero de guía, me dice que esta bien pero no muestra nada de la consulta:
Function ConsultarGuia(ByVal guia As Integer)
Dim conMyData As SqlConnection
Dim strSql As String
strSql = "select NumeroGuia, mensajero.CodigoMens, Guia.estado,Guia.codigoDest from Guia, mensajero, destinatario where Guia.CodigoMens = mensajero.CodigoMens and Guia.CodigoDest = destinatario.CodigoDest and Guia.NumeroGuia = '" & guia & "'"
'Conexión a la base de datos
conMyData = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("StrCon").ConnectionString)
Try 'Control de errores
conMyData.Open()
'crea y ejecuta la consulta al sqldataadapter que devuelve registros
Dim sda As SqlDataAdapter = New SqlDataAdapter(strSql, conMyData)
'crea un nuevo dataset vacio
Dim ds As DataSet = New DataSet
sda.Fill(ds)
conMyData.Close()
Return ds
Catch ex As Exception 'Se produce error en el uso del procedimiento
Dim err As String
err = ex.Message
Return err
End Try
End Function
Una manito urgente por fa..
Mil gracias.