consultita!!

[Stefanie]

Hola! una preguntita sencilla. mira quiero hacer una consulta a mi base de datos en SQL server de forma q sea SELECT distrito FROM distrito where id_Distrito = cod_distrito, el cod_distrito se lo paso x parametro a mi funcion. lo que quiero es que este resultado se guarde en un dato del tipo string porque como veras es un nombre y ese nombre necesito guardar en la base de datos para el registro del cliente que estoy haciendo.
Usualmente cuando tengo uso un recordset hago esto:

Public Function Listar_Distrito() As Recordset
UbicacionDAO 'constructor q inicializa conexion y etc
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.Source = "SELECT distinct Distrito FROM DISTRITO"
.CursorLocation = adUseClient
.Open
End With

Set Listar_Distrito = rs
Set rs = Nothing

End Function

como haria para no guardarlo en un recordset sino en un string .. es dcir q la funcion sea private function buscar_distrito(id as string)as string , xq necesito el dato en string para guardarlo en la base con otra opcion claro MILES DE GRACIAS!!!
saludos!!

[tazzito]

prueba asi

Public Function Fun_NomDistrito(pIdDistrito as string) As String
Fun_NomDistrito="" ' <---dejar vacio 0 o con el valor que quieras por defecto
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.Source = "SELECT Distrito FROM DISTRITO where CodDistrito = " & trim(pIdDistrito)
.CursorLocation = adUseClient
.Open
End With
if not rs.eof then Fun_NomDistrito = rs!Distrito
rs.close
Set rs = Nothing
End Function