Prueba con un data reader...
debes tener el Conection string declarado previamente...
Código:
Dim CmdIdRdNombreEmpresa As New Command("Select Empresa FROM EMPRESA_PULLMAN WHERE NOMBRE = '" & nombre & "'", Conex)
Dim RdidEmpresa As DataReader
Conex.Open()
RdidEmpresa = CmdIdRdNombreEmpresa.ExecuteReader
RdidEmpresa.Read()
Empresa = RdidEmpresa(0)
Conex.Close()