Visual Basic.NET - Ayuda con combobox y conexion sql server

Tengo el siguiente codigo en vb.net 2008

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex = 0 Then
btnguardarv.Visible = True
btneliminarv.Visible = True
btnmodificarv.Visible = True
btnguardamodifv.Visible = True
btnguardard.Visible = False
btneliminard.Visible = False
btnmodificard.Visible = False
btnguardamodifd.Visible = False
Label2.Visible = True
Label5.Visible = False
Label6.Visible = False
TextBox5.Enabled = True
MaskedTextBox3.Enabled = True
MaskedTextBox3.Focus()
TextBox6.Enabled = True
TextBox2.Enabled = True
MaskedTextBox3.Text = ""
TextBox2.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox6.MaxLength = 50
Dim adapter As New SqlDataAdapter("select * from [dbo].[vw_vacunasg]", conexion)
Dim data As New DataSet
conexion.ConnectionString = str_conexion
Try
conexion.Open()
adapter.Fill(data)
DataGridView1.DataSource = data.Tables(0)
conexion.Close()
Catch excepcion As SqlException
MessageBox.Show(excepcion.Message)
conexion.Close()
End Try
End If
If ComboBox1.SelectedIndex = 1 Then
btnguardard.Visible = True
btneliminard.Visible = True
btnmodificard.Visible = True
btnguardamodifd.Visible = True
btnguardarv.Visible = False
btneliminarv.Visible = False
btnmodificarv.Visible = False
btnguardamodifv.Visible = False
Label2.Visible = True
Label5.Visible = False
Label6.Visible = False
TextBox5.Enabled = True
MaskedTextBox3.Enabled = True
MaskedTextBox3.Focus()
TextBox6.Enabled = True
TextBox2.Enabled = True
MaskedTextBox3.Text = ""
TextBox2.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox6.MaxLength = 50
Dim adapter As New SqlDataAdapter("select * from [dbo].[vw_despg]", conexion)
Dim data As New DataSet
conexion.ConnectionString = str_conexion
Try
conexion.Open()
adapter.Fill(data)
DataGridView1.DataSource = data.Tables(0)
conexion.Close()
Catch excepcion As SqlException
MessageBox.Show(excepcion.Message)
conexion.Close()
End Try
End If
End Sub

Bueno basicamente estoy ocultando algunos botones y mostrando otros, hasta ahi todo bien, el problema es cuando por ejemplo selecciono uno y otro item del combobox porque a la hora de hacer el cambio me marca un error dice que la conexion ya esta abierta
por favor ayuda

Donde tienes conexion.Open() remplazala por esta:

If conexion.State = ConnectionState.Closed Then
conexion.Open()
End If

gracias por tu ayuda me esta funcionando :)