Modulo mostrar

[Ka0stj]

Ok, veamos entonces:

Si tienes esa consulta en un módulo declarado como public para tener acceso a ella. Puedes utilizar algo similar a lo que acontinuación te pongo:

Código vb:

'-- Función que me ejecuta el excecuteScalar y me regresa un Double
    Public Function EjecutarEscalar(ByVal sql As String, ByVal objConn As SqlConnection)
 
        '-- Declaro una variable para usarla como valor de retorno
        Dim total As Double
        '-- Declaro una variable tipo SqlCommand
        Dim cmd As System.Data.SqlClient.SqlCommand
 
        Try
            '-- Creo una nueva instancia de SqlCommand
            cmd = New System.Data.SqlClient.SqlCommand()
 
            '-- Asigno mi Conexión
            cmd.Connection = objConn
 
            '-- Asigo el Comando SQL a ejecutar
            cmd.CommandText = sql
 
            '-- Ejecuto mi Comando
            total = cmd.ExecuteScalar
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
 
        '-- Regreso el Total
        Return total
 
    End Function
 

Si lo que quieres es poner el resultado de la consulta en un TextBox lo haces asi:

Código vb:

Me.TextBox1.Text = EjecutarEscalar(TuQueryDelModulo, TuConexion)
 

Bueno con eso lo puedes solucionar.

Saludos!