Public Function ExecuteReturnVal(ByVal sql As String) As Object
Dim cn As New SqlConnection(ConString)
Dim cmd As New SqlCommand(sql, cn)
cn.Open()
Dim Val As Object = cmd.ExecuteScalar
cn.Close()
Return Val
If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn = Nothing
cmd = Nothing
End Function