Problemas con modulo de Update

[lexus_lex]

corregi y nada me dice que la conexion queda abierta y me tira hacia afuera, algo asi:

'Me.btnEdit.Enabled = False
'close connection
conex.Close()
End If
End If

'------------------*********************'


conexion()


comando.CommandText = "UPDATE bitacora " & _
" SET fecha='" & DTPFecha.Text & "'" & _
", horaini='" & DTPHoraIni.Text & "'" & _
", horaterm='" & DTPHoraTerm.Text & "'" & _
", planta='" & TxtPlanta.Text & "'" & _
", equipo='" & TxtEquipo.Text & "'" & _
", observacion='" & TxtInciden.Text & "'" & _
", usuario='" & TxtUsuario.Text & "'" & _
" WHERE idBita=" & TxtId.Tag
conex.Open()
comando.ExecuteNonQuery()
conex.Close()



MsgBox("Bitacora Modificada")

indicame por favor mira que lo tengo que entregar el dia sabado