Cambiar valor de variable public con botones en vb

[necbalaam]

Para que funcionara de este codigo:

Código:

Public Class Informacion
Friend conexion As MySqlConnection
Private Sub Informacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Aestado As Estado = New Estado
'Creamos conexion'
conexion = New MySqlConnection()
conexion.ConnectionString = "server=" & "localhost" & ";" & "user id=" & "root" & ";" & "password=" & " " & ";" & "Database=" & "cenotes" & ";"

'Creamos adaptador'
Dim adapter As New MySqlDataAdapter("Select a.nombre from cenotes as a, localidades as b where b.ID_localidad=a.localidad AND b.ID_estado=" & Aestado.idestado, conexion)
Dim dbDataset As DataSet = New DataSet()
conexion.Open()


le quite el Dim Aestado As Estado = New Estado

y en la parte del adaptador

Dim adapter As New MySqlDataAdapter("Select a.nombre from cenotes as a, localidades as b where b.ID_localidad=a.localidad AND b.ID_estado=" & Aestado.idestado, conexion)

lo cambie para que quedara asi:

Dim adapter As New MySqlDataAdapter("Select a.nombre from cenotes as a, localidades as b where b.ID_localidad=a.localidad AND b.ID_estado=" & Estado.idestado, conexion)


Gracias por tu recomendacion ramirezmario7, no dejare atras tu recomendacion, porque eso lo utilizare para que utilice una misma conexion al mysql... por que me recomendaron que solo utilice una misma conexion al mysql para que no haga conexion a todos los formularios... vale :)