ssqldatareader con

Tengo un problema con este codigo: Function Calc(ByVal i As Integer) As Double Dim sqlReader As SqlDataReader Dim cnn As New SqlConnection Dim vFormula As Integer OpenConnection(cnn) Try ExecuteSQLTransac(cnn, sqlReader, "Select fFormula ...