Referencia a un objeto no establecida...

[eltxapi]

en el modulo principal tengo:
Me.mPresupuesto.Numero = CPresupuesto.NEXT_Numero(Global.gCadenaConexion)
If Me.mPresupuesto.Numero = "" Then
MsgBox("Error obteniendo el numero de presupuesto", MsgBoxStyle.Critical)
Me.DialogResult = DialogResult.Cancel
Me.Close()
que llama a la funcion de la clase CPresupuesto NEXT_Numero
esta, depues de definir la variables :
Try

lssql = "SELECT max(Numero) from PRESUPUESTOS"
sNumero = (DbSql.ConsultaValor_SQLSERVER(lssql, sCadenaConexion))

aqui ya me llama al modulo DbSql y la funcion ConsultaValor:
Public Function ConsultaValor_SQLSERVER(ByVal sComandoSQL As String, _
ByVal sCadenaConexion As String) As String
Dim conn As New SqlConnection(sCadenaConexion)
Dim cmd As New SqlCommand(sComandoSQL, conn)
Try
'Abro la conexion
conn.Open()
'Leo los datos
ConsultaValor_SQLSERVER = CStr(cmd.ExecuteScalar())
MsgBox(ConsultaValor_SQLSERVER)

ese msgbox me da el valor correcto, pero la excepcion me salta en la linea
que está en negrita.
Gracias de antemano por la ayuda, si necesitas ver mas parte del codigo dimelo,
un saludo