Error al ejecutar

[neivan]

Acabo de hacer la prueba por si acaso era algo de que no se pudiera en el global.axac que ya me parecia raro pero no me ha dao ningun problema.
He puesto esto por si te sirve de algo

Sub Session_Start(Sender As Object, E As EventArgs)
' Code that runs when a new session is started
dim ds as system.data.dataset
dim cn as System.Data.SqlClient.SqlConnection
cn=conexion()
cn.open()
DIM cmd AS System.Data.SqlClient.SqlCommand
cmd = New System.Data.SqlClient.sQLCommand()
cmd.Connection = cn
cmd.CommandText = "Update contador set contador=contador + 1"
cmd.Executenonquery
cn.close
End Sub

function conexion() as System.Data.SqlClient.SqlConnection
dim cn as System.Data.SqlClient.SqlConnection
cn=New System.Data.SqlClient.SqlConnection()
cn.ConnectionString="server=Europa1;User Id=miusuario;Database=miBD"
cn.open()
cn.close()
return cn
end function

trabajo con sql server