Recuperar NOmbre por ID

[Giufantasy]

Estimados:

estoy haciendo una funcion para rescatar el nombre de una empresa por su id
el id es un string y el nombre igual
Estoy trabajando en vb.net con sqlserver2000

¿Que estoy haciendo mal?

Public Function getRecuperarNombrePorIdEmpresa(ByVal id As String) As String
Dim val As String = New String("")
Me.configurarConexion()
cnn.setNombreTabla("EMPRESA_PULLMAN")
cnn.setCadenaSQL("Select NOMBRE from EMPRESA_PULLMAN Where empresa = '" & id & "'")
cnn.setEsSelect(True)
cnn.conectar()
For Each dr As System.Data.DataRow In cnn.getDbDataSet.Tables(cnn.getNombreTabla()).Rows
val = (dr(0))
Next
Return val
End Function

y no me retorna nada