Vb.net Error al pasar por instruccion la segunda vez

[astrow25]

Buenas tengo el siguiente codigo y a la segunda vez que pasa por oConexion.open salta un error:

"Referencia a objeto no establecida como instancia de un objeto"

Public Sub CargaTablaFormacionOcupacional()
Try
Me.oDataAdapterSub = New MySqlDataAdapter("Select * from cursos where dni='" & Me.txtDni.Text & "'", oConexion)
Me.oDataSub = New DataSet
oConexion.Open()
Me.oDataAdapterSub.Fill(oDataSub, "cursos")
oConexion.Close()
If (Me.oDataSub.Tables("cursos").Rows.Count) = 0 Then
MsgBox("No hay datos")
Else
Me.dtCursos.DataSource = oDataSub
Me.dtCursos.DataMember = "cursos"
Me.dtCursos.Anchor = AnchorStyles.Bottom + AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top
Me.dtCursos.Columns(0).Visible = False
Me.dtCursos.Columns(1).Visible = False
Me.dtCursos.Columns(2).HeaderText = "CURSOS"
Me.dtCursos.Columns(2).Width = 390
Me.dtCursos.Columns(3).HeaderText = "HR"
Me.dtCursos.Columns(3).Width = 50
Me.dtCursos.Columns(4).HeaderText = "AÑO"
Me.dtCursos.Columns(4).Width = 50
Me.dtCursos.Columns(5).HeaderText = "CENTRO"
Me.dtCursos.Columns(5).Width = 300
Me.dtCursos.Columns(6).HeaderText = "SECTOR"
Me.dtCursos.Columns(6).Width = 170
End If
Catch ex As Exception
MsgBox("Se ha(n) producido errore(s)" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "Error(es)")
Finally
oConexion = Nothing
End Try
End Sub

[David]

En esta línea claramente destruyes la referencia al objeto oConexion:

Código vb:

oConexion = Nothing
 

Dependiendo del lugar en que se crea el objeto, positivamente dará error en la segunda ejecución.